codice:
'----------esempio stampa--------
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
ps. se mi dai la tua email in pvt forse riesco a darti un esempio x il problema dello scroll con la rotellina del mouse.