nn ricordi male :gren:
codice:
Private Sub Command1_Click()
'posizionamento sul foglio
Printer.CurrentX = 1000
Printer.CurrentY = 1000
'per cambiare il font
Printer.FontSize = 10
Printer.Font = "Tahoma"
Printer.FontBold = False
' stampa
Printer.Print "123"
' fine stampa
Printer.EndDoc
End Sub