Salve a tutti ....devo effettuare una stampa su una stampante
e faccio cosi':
Dim WithEvents pDoc As Printing.PrintDocument

sub avvia stampa()

Dim PrintDialog1 As New PrintDialog
pDoc = New Printing.PrintDocument
PrintDialog1.Document = pDoc
PrintDialog1.AllowSomePages = True
pdoc.print

end sub

dovrei ora fare in modo che la il loyaut del foglio fosse in orizontale anzichè in verticale