Here is my code:
- Code: Select all
Private Sub ImprimirToolStripButton_Click(sender As Object, e As EventArgs) Handles ImprimirToolStripButton.Click
If Me.PdfDocumentViewer1.PageCount > 0 Then
Dim dialogPrint As PrintDialog = New PrintDialog()
Dim myDocument As New PrintDocument
With dialogPrint
.AllowPrintToFile = True
.AllowSomePages = True
.Document = myDocument
.PrinterSettings.MinimumPage = 1
.PrinterSettings.MaximumPage = PdfDocumentViewer1.PageCount
.PrinterSettings.FromPage = 1
.PrinterSettings.ToPage = PdfDocumentViewer1.PageCount
If .ShowDialog() = DialogResult.OK Then
PdfDocumentViewer1.PrintSettings.SelectPageRange(.PrinterSettings.FromPage, dialogPrint.PrinterSettings.ToPage)
PdfDocumentViewer1.PrintSettings.Copies = .PrinterSettings.Copies
PdfDocumentViewer1.PrintSettings.PaperSize = .Document.DefaultPageSettings.PaperSize
'PdfDocumentViewer1.PrintSettings.Landscape = .Document.DefaultPageSettings.Landscape
'PdfDocumentViewer1.PrintSettings.Color = .Document.DefaultPageSettings.Color
PdfDocumentViewer1.PrintSettings.Landscape = True
PdfDocumentViewer1.PrintSettings.Color = False
PdfDocumentViewer1.PrintSettings.PrinterName = .PrinterSettings.PrinterName
PdfDocumentViewer1.PrintDoc()
End If
End With
End If
End Sub
Document is printed in the selected printer, but Landscape and Color are ignored, and I get a coloured and vertical print instead of grayscale and lanscape.
Thank you in advance.
Alex