sygecom escreveu:Olha o que diz o Help...por ai vc pode ter uma noção !!!
****************
oWin32Bmp:draw()
Draws the bitmap image to a printer.
Syntax
:draw( <oWin32Prn>, <aRectangle> ) --> lSuccess
Arguments
<oWin32Prn>
This parameter must be a Win32Prn() object.
<aRectangle> := { <nX1>, <nY1>, <nX2>, <nY2> }
This is a one dimensional array of four elements. It holds numeric values specifying the X/Y coordinates of the upper-left (<nX1>, <nY1>) and lower-right (<nX2>, <nY2>) position on the printer wher the bitmap image is drawn. The coordinates must be specified in pixel units. Description
Method :draw() sends a loaded bitmap image to the printer specified with <oWin32Prn>. The coordinates passsed with <aRectangle> are printer coordinates. i.e. they tell the Win32Prn object, where to print the bitmap on paper.
If the rectangle <aRectangle> does not match the size of the bitmap image, the image is automatically scaled and/or transformed to the size of <aRectangle>.
****************
Boa tarde!
estou imprimindo a logo na mini impressora elgin i9, mas, apos imprimir essa log pula algumas linhas! como faço para nao pular essas linhas?
************************************************************************************************
FUNCTION ImprimeLogo(cFileName,cImpressora, aParametro)
LOCAL o| oWin32Prn, aParametro )
* oWin32Bmp:draw( oWin32Prn, { 45, 10, 900, 759 } )
*nTamlogo := 9
*FOR i=1 to nTamLogo
* oWin32Prn:newline()
*NEXT
*oWin32Prn:setfont('Courier New',,12,,,,255)
*
*oWin32Prn:TextOut("1Empresa.: XPTO LTDA", .T.)
*oWin32Prn:TextOut("2Empresa.: XPTO LTDA", .T.)
*oWin32Prn:TextOut("3Empresa.: XPTO LTDA", .T.)
*oWin32Prn:TextOut("4Empresa.: XPTO LTDA", .T.)
*oWin32Prn:TextOut("5Empresa.: XPTO LTDA", .T.)
*oWin32Prn:TextOut("CNPJ....: 99.999.999/0001-99", .T.)
*oWin32Prn:TextOut("Situacao: INATIVA", .T.)
oWin32Prn:EndDoc()
oWin32Prn:destroy()
endif
endif
endif
else
bImpLogo := .f.
endif
CATCH e
@ 23,00 SAY PADC("Erro ao imprimir logo!!",80)
inkey(1)
RETURN .F.
END
RETURN bImpLogo
**********************