Più copie di stampa

di
Anonimizzato14358
il
2 risposte
/
Anonimizzato14358
Utente anonimizzato

Più copie di stampa

Ho la necessità di stampare più copie e utilizzo il seguente codice:

PrintDialog1.PrinterSettings.Copies = 5

If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'Se nella finestra di dialogo si preme OK...

PrintDialog1.Document = PrintDocument1
PrintDocument1.Print() 'Si stampa il contenuto della Sub
PrintDialog1 = New PrintDialog()

Else 'Altrimenti...
Exit Sub
Ma il risultato è che stampa solo una copia.
Dove sbaglio

2 Risposte

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21897

    Re: Più copie di stampa

    Prima fai la New e poi assegni le proprietà all'oggetto creato ...
  • /
    Anonimizzato14358
    Utente anonimizzato

    Re: Più copie di stampa

    Ho modificato il codice nel seguente modo:, ma il risultato è lo stesso.
    (la stampante utilizzata per default è la Microsoft Office Document Image Writer)

    PrintDialog1 = New PrintDialog()
    PrintDialog1.PrinterSettings.Copies = 5

    If PrintDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
    'Se nella finestra di dialogo si preme OK...
    PrintDialog1.Document = PrintDocument1
    PrintDocument1.Print() 'Si stampa il contenuto della Sub "PrintDocument1_PrintPage"
    Else 'Altrimenti...
    Exit Sub 'Esco dalla sub
    End If
Devi accedere o registrarti per scrivere nel forum
2 risposte