FiveTech Software tech support forums

... un codigo de barras #include 'vta0000.ch' //----------------------------------------------------------------- function go_code( cBarra, nx,ny,oPrint,lHoRz, nColor, nWidth, nLen) //----------------------------------------------------------------- local n, oBr if empty(nColor) nColor := CLR_BLACK ...

... se cierra la sesión en windows server, con lo cual se van acumulando hasta que llega un momento que cuando creas un objeto tprinter "PRINT oPrint TO cprn", te salta el cuadro de dialogo para seleccionar la impresora aunque cprn tenga el nombre y redireccionado correcto. Mirando el ...

... nYear:= 2022 local lWhenoCbx := .f. local nRecnos := "10" local cExtractSel := "Estrazioni continue" local oPrint,oExit DEFINE WINDOW oWnd MDICHILD TITLE "Child" VSCROLL    DEFINE BUTTONBAR oBar TOP  OF oWnd  2015    @ 2,5 COMBOBOX aShowCbx[1] ...

... need to add an variable at the top of your program to be able to save the file Local lSaveHaru   := TPrinter():lUseHaruPDF  3) You define oPrint like this PRINT oPrint FILE "c:\dbtmp\"+cPdfName+".pdf"   // location and name of your .pdfoPrint:SetPage( 1 )oPrint:SetPortrait() ...

... with the wrong resolution. Question ... How is oPrinter object created in this code .. nView = 3 //nView := 3 Do Case Case nVIEW = 1 PRINTER oPRINT FROM USER ; PREVIEW MODAL ; NAME "Request Print Routine "+xLOGIN IF EMPTY( oPRINT:hDC ) MsgStop ( "Printer not Ready !" ) ...

... partir de ellas paso todos los parametros en centimetros con decimales, me funciona muy bien. Por ejemplo : oimagen := TImage():Define(logo.jpg') oPrint:SayImage(Posx(nposx) , Posy(nposy) , oimagen, posx(nancho), posy(nalto)) //------------------------------------------------------------------------------// ...

... partir de ellas paso todos los parametros en centimetros con decimales, me funciona muy bien. Por ejemplo : oimagen := TImage():Define(logo.jpg') oPrint:SayImage(Posx(nposx) , Posy(nposy) , oimagen, posx(nancho), posy(nalto)) //------------------------------------------------------------------------------// ...

oPRINT:StartPage() // error here <<<----------------------------------

What is the error you are getting?
What if you use the command

Code: Select all  Expand view

PAGE
....
ENDPAGE
 

... .. The report I am trying to print to pdf works fine if you use the print viewer .. however, I am doing a lot in this report by using the Printer oPrint:nVertRes() and oPrint:nHorzRes() properties and placing my text on the page in relatively the same position based on what ever printer is used ...

... treated as Col and Col was treated as Row. Same way Bottom was treated as Right and Right was treated as Bottom. But a other thing is the pen in oPrint:box() and oPrint:roundbox(). I make a pen with "DEFINE PEN oPen1 WIDTH max(1,(max(oPrn:nHorzRes(),oPrn:nVertRes())/1800))" with exact ...

Thanks! The pen is also in oPrint:box(...) bigger as before. In my case the pens are from type "object"

oPrint:roundbox(…) is not compatible to older FWH. The rectangle are turned 90 degrees and the pen is bigger!

Francisco Yes .. I am still using this code in my programs today ... oPRINT:SAY ( LINE, (oPrint:nHorzRes()*.07), cOwner, oFONT14b ) .. the oPrint:nHorzRes() is the calculation derived from the oPrint object which is your defined printer. This calculation allows ...

The thickness from a pen must be calculated in dependence to the used printer! (or give the OF oPrint clausula as ukoenig say!)

DId You define the pen like

define PEN oPen width 5 OF oPRINT

sample lineprinting :
oPRINT:Line ( nFil, nCol, nTop, nBot, oPen )

regards
Uwe