Sergio Luiz
Member
I'm using PrintPreviewDialog1.Document, where the print on the component's screen appears perfect on the object's screen, but when I click on print the sheet comes out blank, does anyone know about it?
Dim WithEvents PrintDoc As New Printing.PrintDocument
Private Sub Imprimir_Etiquetas()
Dim margins As Margins = New Margins(Convert.ToInt16("5"), Convert.ToInt16("5"), Convert.ToInt16("5"), Convert.ToInt16("5"))
Dim LarguraEtiqueta As Single = Convert.ToSingle("100")
Dim AlturaEtiqueta As Single = Convert.ToSingle("50")
Dim Tamanhopag = New PaperSize("First custom size", 100, 50)
PrintDoc.DefaultPageSettings.PaperSize = Tamanhopag
PrintDoc.DefaultPageSettings.PaperSize = Tamanhopag
PrintDoc.DefaultPageSettings.PaperSize.Height = AlturaEtiqueta
PrintDoc.DefaultPageSettings.PaperSize.Width = LarguraEtiqueta
PrintDoc.PrinterSettings.PrinterName = Trim(GPrintName)
PrintDoc.DefaultPageSettings.Margins = margins
PrintDoc.OriginAtMargins = False
PrintDoc.DocumentName = "A minha página"
PrintPreviewDialog1.Document = PrintDoc
PrintPreviewDialog1.ShowDialog()
End Sub
Private Sub Pagina(ByVal sender As System.Object, ByVal e As Drawing.Printing.PrintPageEventArgs) Handles PrintDoc.PrintPage
Dim g As Graphics = e.Graphics
g.PageUnit = GraphicsUnit.Millimeter
cBarcod = "*285700001*"
Dim F2 As New Font("Arial", 3, FontStyle.Regular, GraphicsUnit.Millimeter)
Dim F As New Font("Arial", 12, FontStyle.Regular, GraphicsUnit.Document)
Dim FCodeBar As New Font("Free 3 of 9 Extended", 36, FontStyle.Regular, GraphicsUnit.Document)
While ControloPagina <> 6
g.DrawString("Linha0 " & ControloPagina, F, Brushes.Black, 0, 0) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha1 " & ControloPagina, F, Brushes.Black, 0, 1) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha2 " & ControloPagina, F, Brushes.Black, 0, 2) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha3 " & ControloPagina, F, Brushes.Black, 0, 3) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha4 " & ControloPagina, F, Brushes.Black, 0, 4) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha5 " & ControloPagina, F, Brushes.Black, 0, 5) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha6 " & ControloPagina, F, Brushes.Black, 0, 6) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha7 " & ControloPagina, F, Brushes.Black, 0, 7) ' Texto,fonte,negrito,coluna,linha
g.DrawString("Linha8 " & ControloPagina, F, Brushes.Black, 0, 8) ' Texto,fonte,negrito,coluna,linha
g.DrawString(cBarcod, FCodeBar, Brushes.Black, 10, 10) ' Texto,fonte,negrito,coluna,linha
ControloPagina += 1
If ControloPagina = 6 Then
e.HasMorePages = False
Else
e.HasMorePages = True
Exit Sub
End If
End While
End Sub