Le Stampe In Vb Net

[majo64]

Ciao a tutti per favore mi aiutate a capire perchè il codice sotto come risultato mi fa stampare una sola pagina bianca?
Lo scopo è quello di definire il file che voglio stampare, la stampante sul quale lo voglio stampare e quante pagine.

Funziona tutto ma stampa una pagina bianca.

Aiuto per favore

Grazie mille!!



il codice:

Dim PrintDialog As New PrintDialog
Dim PrintDoc As New PrintDocument


With PrintDialog
'Determina se sia possibile stampare su un file
.AllowPrintToFile = False
'Determina se sia possibile stampare solo la
'selezione. In questo caso non c'è nessuna selezione
'quindi non ci sono problemi a disativare l'impostazione
.AllowSelection = False
'Determina se sia possibile stampare delle pagine in
'particolare. Vale lo stesso discorso fatto sopra
.AllowSomePages = True
.Document = PrintDoc
.PrinterSettings.PrinterName = CURRENT_PRINTER_MANUALI
End With

If PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
' ottiene o imposta la stampante che stampa il documento
PrintDoc.PrinterSettings = PrintDialog.PrinterSettings
PrintDoc.DocumentName = IO.Path.GetFileName("X:\" & Mid(Dtg.ActiveRow.Cells("Descrizione").Value, 3, 3) & "_EN_" & Mid(TxtDest.Text.ToString, 1, 2) & ".pdf")
' avvia il processo di stampa


End If

[Gandalfrank]

tra tutte le istruzioni che hai inserito nessuna avvia il processo di stampa.

per inviare direttamente il tuo documento alla stampante puoi usare l'istruzione:

PrintDoc.Print

però è necessario che tu definisca il documento PrintDoc nell'apposito evento

PrintDoc_PrintPage(...)

all'interno del quale inserire tutte le informazioni da inviare alla stampante:
"scrivi del testo qui,
inserisci una fota là,
metti un disegno al centro pagina,
ecc.
ecc."

per fare in modo che tu possa stampare più di una pagina devi usare la proprietà

e.HasMorePages

la quale se risulta true stampa la pagina segente, e si interrompe se assume il valore false.

Spiegarti nel dettaglio il processo di stampa è piuttosto complicato.
Prova a guardare qui