Does exists any version de PREVIEW than can save in PDF format?
Regards
George
Does exists any version de PREVIEW than can save in PDF format?
Regards
George
George,
i think you'll need a pdf printer installed for this.
Regards,
Detlef
Detlef
I know that I can do that using PDFCreator.
I would like to save PDF from FiveWin PREVIEW. Do you know any class that I can use to create PDF report?
George
Geaorge,
sorry i don't know a class like that which can be activated from inside of a preview.
Regards,
Detlef
George wrote:
I would like to save PDF from FiveWin PREVIEW. Do you know any class that I can use to create PDF report?
>Manuel write:
>I have changed rpreview.prg class, for let us to select a printer from >window's preview.- If you have installed a pdf printer, you can select >that printer and "voilé".
Manuel
That is a good start. Can I get the modification that you did to rpreview.prg?
George
George wrote:
Can I get the modification that you did to rpreview.prg?
Manuel,
Thanks for your RPREVIEW.PRG modified.
When I try to compiler I get the following errors:
Syntax error: "parse error at "IMAGELIST"
Syntax error: "parse error at "TOOLBAR"
Syntax error: "parse error at "TBBUTTON"
Syntax error: "parse error at "TBSEPARATOR"
Also I get FixSay() and IsWin64() undefined function
Maybe the errors are because I am using FWH 2.5
Regards
George
George,
> Maybe the errors are because I am using FWH 2.5
Yes, those classes and functions are in FWH 2.7. You may upgrade from www.fivetechsoft.com
George wrote:Maybe the errors are because I am using FWH 2.5
Manuel Valdenebro wrote:http://hyperupload.com/download/02caf68c16/rpreview.prg.html
func f_CamImpre (oDevice, cCbx )
local cPrinter
cPrinter := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx )
SysRefresh()
PrinterInit()
oDevice:hDC := GetPrintDefault( GetActiveWindow() )
SysRefresh()
WriteProfString( "windows", "device", cPrinter )
RETURN nilDeleteDC( oDevice:hDC )
oDevice:hDC := GetPrintDefault( GetActiveWindow() )Manuel
Thanks. Work perfect!
I'll have to upgrade to FWH2.7 and xHarbour Professional ASAP
George
Manuel
The only PROBLEM that we have is when select a different printer in preview screen, the output does not fit in the new printer. Please try selecting differents printer (e.g. Winfax)
George
Manuel
Here your function with a minor modification
//------------------------------------------------------------------------
// función para cambiar la impresora desde previo (mcn)
//------------------------------------------------------------------------
func f_CamImpre (oDevice, cCbx )
local cPrinter
cPrinter := GetProfString( "windows", "device" , "" )
WriteProfString( "windows", "device", cCbx )
SysRefresh()
PrinterInit()
DeleteDC( oDevice:hDC ) // Sugestion by Enrico M. Giordano
oDevice:hDC := GetPrintDefault( GetActiveWindow() )
oWnd:End() // To close current preview
// Insert here the function to create the report
SysRefresh()
WriteProfString( "windows", "device", cPrinter )
RETURN nil
Regards
George
George wrote:Does exists any version de PREVIEW than can save in PDF format?
Regards
George