Ciao,
ti riporto PrintForm con alcune altre proprietà di stampa:
codice:
Private Sub Command2_Click()
    With Printer
        '.Orientation = VBRUN.PrinterObjectConstants.vbPRORLandscape
        .Orientation = VBRUN.PrinterObjectConstants.vbPRORPortrait
        .ScaleMode = vbMillimeters      'mm
        .Orientation = vbPRORPortrait   'verticale
        .PaperSize = vbPRPSA4           'A4 (21 x 29,7 cm)
        .PrintQuality = vbPRPQLow       'qualità bozza
        .ColorMode = vbPRCMMonochrome   'stampa in B/N
    End With
    
    If Len(Text1.Text) > 0 And Val(Text1.Text) > 0 Then
        Printer.Copies = Text1.Text
        Me.PrintForm
        Printer.EndDoc
    End If
End Sub