Private Sub Begin_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Dim LinhasPorPagina As Single = 0 'Lines per Page
Dim PosicaoDaLinha As Single = 0 'Current Line Position
Dim LinhaAtual As Integer = 0 'Current Line
Dim strTexto As String = String.Empty 'Body
Dim MargemEsquerda As Single = e.MarginBounds.Left - 50 'Margin
Dim MargemSuperior As Single = e.MarginBounds.Top + 100 'Margin
Dim MargemDireita As Single = e.MarginBounds.Right - 50 'Margin
Dim MargemInferior As Single = e.MarginBounds.Bottom + 50 'Margin
by default there is no reporting tool for express edition, so i assume you wrote your own class , and no one can tell you how to do that without seeing your code
How to add new Page
Thrix
I made my reports with the Printer Object, but I need to add a leaf more to insert an image… as to make this
sorry for my english.. i`m brazilian
imanish11111
my code.. i use..
Imports System.Drawing
Private Sub Begin_PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Dim LinhasPorPagina As Single = 0 'Lines per Page Dim PosicaoDaLinha As Single = 0 'Current Line Position Dim LinhaAtual As Integer = 0 'Current Line Dim strTexto As String = String.Empty 'Body Dim MargemEsquerda As Single = e.MarginBounds.Left - 50 'Margin Dim MargemSuperior As Single = e.MarginBounds.Top + 100 'Margin Dim MargemDireita As Single = e.MarginBounds.Right - 50 'Margin Dim MargemInferior As Single = e.MarginBounds.Bottom + 50 'MarginLinhaAtual = 0
e.Graphics.DrawLine(CanetaDaImpressora, MargemEsquerda, 190, MargemDireita + 100, 190)
ImprimeCabecalho(sender, e) 'Header
LinhasPorPagina = e.MarginBounds.Height / FonteNormal.GetHeight(e.Graphics) - 5
While (LinhaAtual < LinhasPorPagina AndAlso leitor.Read())PosicaoDaLinha = MargemSuperior + (LinhaAtual * FonteNormal.GetHeight(e.Graphics))
strTexto = leitor(uCount).ToStringe.Graphics.DrawString(strTexto, FonteNormal, Brushes.Black, sCol.Left, PosicaoDaLinha,
New StringFormat()) LinhaAtual += 1 End WhileImprimeRodape(PaginaAtual, sender, e) 'Footer
'incrementa o n£mero da p ginaPaginaAtual += 1
If (LinhaAtual > LinhasPorPagina) Thene.HasMorePages =
True Elsee.HasMorePages =
False 'If no more pages then add new page and Load bitmap!!! Please.. Help mee End If End Subleclerc9
hi,
by default there is no reporting tool for express edition, so i assume you wrote your own class , and no one can tell you how to do that without seeing your code
hope this helps
Terrence Chan
Please can you rephrase your question as it is very unclear.
Thanks!