[VB6]: Impostare il numero di copie della stampante predefinita

[elfocaotico]

Ciao,
vorrei impostare il numero di copie della stampante predefinita di modo che con PRINTFORM mi vengono stampate n copie del form selezionato.
Evitare quindi di eseguire loop.
Grazie in anticipo.

[LMondi]

Ciao,
ti riporto PrintForm con alcune altre proprietà di stampa:

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

[elfocaotico]

LMondi,
grazie sei una divinità
cercavo proprio questo

GRA-ZI-E