AJUDA COM PRINTER

EPISCOPAL 29/06/2010 23:53:12
#346118

PROCURE O FRMPRINTPREVIEW

SUB DOCPRINTPROC


[ô] Set printable rect area >>> AQUI CONFIGURA O TAMANHO DA PAGINA
rectPage.Left = 0
rectPage.Top = 0
rectPage.Right = Printer.ScaleWidth
rectPage.Bottom = Printer.ScaleHeight

>>>> AQUI CONFIGURA AS MARGENS
[ô] Calculate the Left, Top, Right, and Bottom margins
LeftMargin = gLeft - LeftOffSet
TopMargin = gTop - TopOffSet
RightMargin = (Printer.Width - gRight) - LeftOffSet
BottomMargin = (Printer.Height - gBottom) - TopOffSet

TENTA AII