PrintDocument1_PrintPage vb.net
-
olá a todos, eu criei um arquivo em .txt e gostaria de imprimir o documento atravez do componente PrintDocument1_PrintPage, só que os comandos estão dentro o arquivo .txt como segui o exemplo. Private Sub PrintDocument1_PrintPage(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage Dim AlinhamentoLeft As New StringFormat() AlinhamentoLeft.Alignment = StringAlignment.Near Dim AlinhamentoRight As New StringFormat() AlinhamentoRight.Alignment = StringAlignment.Far Dim AlinhamentoCenter As New StringFormat AlinhamentoCenter.Alignment = StringAlignment.Center Dim xRowTop = 0 e.Graphics.DrawLine(New Pen(Brushes.Black, 0.6), 40, 50, 245, 50) e.Graphics.DrawLine(New Pen(Brushes.Black, 0.6), 40, 100, 800, 100) e.Graphics.DrawLine(New Pen(Brushes.Black, 0.6), 658, 40, 796, 40) e.Graphics.DrawRectangle(Pens.DarkGray, 658, 17, 139, 53) e.Graphics.DrawString("Codigo", New Font("Arial", 9.75, FontStyle.Bold), New SolidBrush(Color.Black), 37, 82) e.Graphics.DrawString("Nome", New Font("Arial", 9.75, FontStyle.Bold), New SolidBrush(Color.Black), 112, 82) e.Graphics.DrawString("Nome", New Font("Arial", 9.75, FontStyle.Bold), New SolidBrush(Color.Black), 482, 82) e.Graphics.DrawString("Ralatório de estoque", New Font("Arial", 14.25, FontStyle.Bold), New SolidBrush(Color.Black), 38, 25) e.Graphics.DrawString("Página", New Font("Arial", 9.75, FontStyle.Bold), New SolidBrush(Color.Black), 663, 47) e.Graphics.DrawString("Data:", New Font("Arial", 9.75, FontStyle.Bold), New SolidBrush(Color.Black), 663, 20) e.Graphics.DrawString("Fornecedor", New Font("Arial", 9.75, FontStyle.Bold), New SolidBrush(Color.Black), 397, 82) xRowTop = 106 NewPage = False If xRowTop > e.MarginBounds.Bottom + e.PageSettings.Margins.Bottom - 40 Then e.HasMorePages = True NewPage = True Exit Sub End If End Sub é como se fosse um arquivo do CrystalReports, só que usando o PrintDocument1_PrintPage e os comandos da Sub PrintDocument1_PrintPage estaria dentro do arquivo .txt. Se alguem puder ajudar agradeço. por wanderley