Assigning lUseHaruPdf when TPrinter is sub-classed

[hua]

If I sub-class class TPrinter;

Code: Select all  Expand view

class XPrinter from TPrinter

What is the correct way to assign var lUseHaruPdf?
xPrinter():lUseHaruPdf or TPrinter():lUseHaruPdf

TIA

[Antonio Linares]

Dear Hua,

::lUseHaruPdf

[nageswaragunupudi]

xPrinter():lUseHaruPdf or TPrinter():lUseHaruPdf

You can use any.

[hua]

Thanks for the replies Antonio and Rao

[hua]

I get this error message

Code: Select all  Expand view

  Error description: Error BASE/1005  Message not found: FWPDF:_LUNDERLINEHEADER

:lUnderlineHeader is a data in my xprinter class that inherits from tprinter.

Where did I go wrong?

[hua]

When tested using lUseFWPdf, pdfs are generated but
1. User is prompted for a file name for the pdf
2. The word "FiveWin Report" is embedded into the pdf

Would still like to use Haru pdf to see what size is the pdf generated

[nageswaragunupudi]

I get this error message

Code: Select all  Expand view

  Error description: Error BASE/1005  Message not found: FWPDF:_LUNDERLINEHEADER

:lUnderlineHeader is a data in my xprinter class that inherits from tprinter.

Where did I go wrong?

You have used a DATA that is not in FWPDF class.
If you inherit from TPrinter, you should know how to match with FWPDF class thoroughly
If not, do not use harupdf
My personal advice is not to use derived class. Finally, it is upto you.

[hua]

I see so when lUseHaruPdf = .t. I am actually using FWPDf not TPrinter.
Understood. Thanks

[hua]

Is it possible to print to a pdf driver such as Microsoft Print To Pdf, CutePdf, etc programmatically without prompting user for filename?

[nageswaragunupudi]

IS it possible to print to a pdf driver such as Microsoft Print To Pdf, CutePdf, etc programmatically without prompting user for filename?

By default, FWH uses Microsoft Word to read emf and print as PDF.
The programmer does not have to do anything for it.
There is really no need to search for alternatives.

[hua]

To avoid having to re-code my report routine I tried using :lUseFWPdf

Code: Select all  Expand view

    XTPrinter():lUseFWPdf := .t.
    XPRINTER oPrn name ::cRptTitle FILE cPdf
 

I don't know why the dialog box asking for pdf name appear. Is there something wrong with my pdf name?

"F:\test\harbour\pay2023_\PCB\2023\ABD RAHMAN BIN KASSI_202305.pdf"

TIA

[nageswaragunupudi]

We can not comment on your derived class.
but

Code: Select all  Expand view

PRINT oPrn FILE cPdf

does not ask for a file name again.

[hua]

Thanks for the info Rao. The dialog now no longer appears
Unfortunately when it's printing in a loop (a bunch of staffs tax calculation), it will eventually generates internal error

Code: Select all  Expand view

* hb_out.log
Application Internal Error - F:\test\harbour\pay2023_\bin\pay.exe
Terminated at: 2023-08-02 12:13:00
Unrecoverable error 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:0059EC3C
    EAX:00000001  EBX:00000000  ECX:0000000A  EDX:00000000
    ESI:0000000A  EDI:0019E1E8  EBP:0019E1B4
    CS:EIP:0023:0059EC3C  SS:ESP:002B:0019E1A4
    DS:002B  ES:002B  FS:0053  GS:002B
    Flags:00210246
    Exception Parameters: 00000000 00000012
    CS:EIP: F6 43 12 08 74 36 89 75 FC 83 7D FC 00 74 21 53
    SS:ESP: 00000000 007652DC 0019E1E8 0000000A 0019E1D0 0059FC87 0019E1E8 0000000A 00000000 00000001 008ED100 0019E70C 005A06C7 0019E1E8 00764065 00000000

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    0059EC3C 0019E1B4   0019E1D0 0059FC87 0019E1E8 0000000A 00000000 00000001 008ED100
    0059FC87 0019E1D0   0019E70C 005A06C7 0019E1E8 00764065 00000000 008ED1BC 46445025 332E312D 00000A0D 00000000
    005A06C7 0019E70C   0019E72C 0059EC25 0059EC2C 00000000 007652D7 00000000 00000000 0019E740
    0059EC25 0019E72C   0019E740 00413B6C 00000000 007652D7 007652DC
    00413B6C 0019E740   0019E75C 004BFEDC 000000AD 00000062 011F60E4 00000000 00000000
    004BFEDC 0019E75C   0019E870 004B9CE6 00000001 00763BC8 00000000 00763350 008ED1BC 008ED4D8 00000130 00000000
    004B9CE6 0019E870   0019E880 004139CC 00763FD6 00763220
    004139CC 0019E880   0019E8A0 004C0099 008ED1BC 000000A5 00000062 011F60E4 0003002F 000000B4
    004C0099 0019E8A0   0019E9B4 004B9DA4 00000002 006336F7 00000000 008ED1BC 00000000 00000000 00000000 00000000
    004B9DA4 0019E9B4   0019E9C4 0041396C 00763A54 00763220
    0041396C 0019E9C4   0019E9E0 004BFEDC 000000A1 00000062 011F60E4 00000000 0000003E
    004BFEDC 0019E9E0   0019EAF4 004B9C63 00000003 00656806 00000000 008ED1BC 0000000E 011F1994 00000007 00000000
    004B9C63 0019EAF4   0019EB04 00405154 006335F8 0063176C
    00405154 0019EB04   0019EB20 004BFEDC 00000092 0000005E 011F629C 00000000 00000195
    004BFEDC 0019EB20   0019EC34 004B9C63 00000000 006542B2 00000000 006539D8 008ED1BC 008ED1BC 00000010 0019EB60
    004B9C63 0019EC34   0019EC44 004060C4 006542C7 00653878
    004060C4 0019EC44   0019EC64 004C0099 008ED1BC 0000008E 0000005E 011F629C 0018002C 00000130
    004C0099 0019EC64   0019ED78 004B9DA4 00000000 00640766 00000000 006374D0 008ED1BC 00AA704C 011F1674 00000001
    004B9DA4 0019ED78   0019ED88 004060AC 00654254 00653878
    004060AC 0019ED88   0019EDA8 004C0099 008ED1BC 0000008A 0000005E 011F629C 0017002C 0000001F


Modules:
00400000 00001000 F:\test\harbour\pay2023_\bin\pay.exe
77990000 0019A000 C:\WINDOWS\SYSTEM32\ntdll.dll
778A0000 000E0000 C:\WINDOWS\System32\KERNEL32.DLL
75170000 001FF000 C:\WINDOWS\System32\KERNELBASE.dll
75BB0000 00079000 C:\WINDOWS\System32\ADVAPI32.DLL
75D00000 000BF000 C:\WINDOWS\System32\msvcrt.dll
77820000 00076000 C:\WINDOWS\System32\sechost.dll
75520000 000BB000 C:\WINDOWS\System32\RPCRT4.dll
75150000 00020000 C:\WINDOWS\System32\SspiCli.dll
75140000 0000A000 C:\WINDOWS\System32\CRYPTBASE.dll
75A20000 00060000 C:\WINDOWS\System32\bcryptPrimitives.dll
75670000 000B0000 C:\WINDOWS\System32\COMDLG32.DLL
74A30000 0020F000 C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.18362.1556_none_e62b6e06f8da6adb\COMCTL32.DLL
76690000 00277000 C:\WINDOWS\System32\combase.dll
75A80000 00120000 C:\WINDOWS\System32\ucrtbase.dll
75CD0000 00021000 C:\WINDOWS\System32\GDI32.dll
75490000 00084000 C:\WINDOWS\System32\shcore.dll
76970000 00017000 C:\WINDOWS\System32\win32u.dll
769F0000 0015D000 C:\WINDOWS\System32\gdi32full.dll
75F00000 00198000 C:\WINDOWS\System32\USER32.dll
75720000 0007C000 C:\WINDOWS\System32\msvcp_win.dll
76620000 00044000 C:\WINDOWS\System32\SHLWAPI.dll
760A0000 0057B000 C:\WINDOWS\System32\SHELL32.dll
769B0000 0003B000 C:\WINDOWS\System32\cfgmgr32.dll
76E00000 005C1000 C:\WINDOWS\System32\windows.storage.dll
76670000 00017000 C:\WINDOWS\System32\profapi.dll
76910000 00043000 C:\WINDOWS\System32\powrprof.dll
75EA0000 0000D000 C:\WINDOWS\System32\UMPDC.dll
76CC0000 0000F000 C:\WINDOWS\System32\kernel.appcore.dll
75470000 00013000 C:\WINDOWS\System32\cryptsp.dll
75370000 000F7000 C:\WINDOWS\System32\OLE32.DLL
75C30000 00092000 C:\WINDOWS\System32\OLEAUT32.DLL
6E0A0000 0016B000 C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.18362.1556_none_171660ec536ce4a9\GDIPLUS.DLL
755E0000 0005E000 C:\WINDOWS\System32\WS2_32.DLL
661B0000 00018000 C:\WINDOWS\SYSTEM32\MPR.DLL
74990000 00006000 C:\WINDOWS\SYSTEM32\MSIMG32.DLL
65D00000 0002C000 C:\WINDOWS\SYSTEM32\OLEDLG.DLL
74C40000 00008000 C:\WINDOWS\SYSTEM32\VERSION.DLL
74480000 0006B000 C:\WINDOWS\SYSTEM32\WINSPOOL.DRV
76CD0000 00019000 C:\WINDOWS\System32\bcrypt.dll
634B0000 00024000 C:\WINDOWS\SYSTEM32\WINMM.DLL
74390000 000C5000 C:\WINDOWS\SYSTEM32\PROPSYS.dll
62FD0000 00023000 C:\WINDOWS\SYSTEM32\winmmbase.dll
74D20000 00032000 C:\WINDOWS\SYSTEM32\IPHLPAPI.DLL
75640000 00025000 C:\WINDOWS\System32\IMM32.DLL
73840000 0007A000 C:\WINDOWS\system32\uxtheme.dll
75800000 00103000 C:\WINDOWS\System32\MSCTF.dll
029F0000 00012000 C:\Program Files (x86)\4t Tray Minimizer\ShellEh552.dll
72400000 00029000 C:\WINDOWS\SYSTEM32\ntmarta.dll
6DB50000 00009000 C:\WINDOWS\System32\drprov.dll
738C0000 00044000 C:\WINDOWS\System32\WINSTA.dll
6DB30000 00012000 C:\WINDOWS\System32\ntlanman.dll
6DB10000 00019000 C:\WINDOWS\System32\davclnt.dll
6DB00000 0000A000 C:\WINDOWS\System32\DAVHLPR.dll
73B00000 00010000 C:\WINDOWS\System32\wkscli.dll
73AD0000 0000E000 C:\WINDOWS\SYSTEM32\cscapi.dll
74950000 0000B000 C:\WINDOWS\System32\netutils.dll
02DA0000 00090000 F:\test\harbour\pay2023_\bin\BWCC32.DLL
10000000 000D2000 F:\test\harbour\pay2023_\bin\keylib32.dll
6D520000 00053000 C:\WINDOWS\SYSTEM32\OLEACC.dll
62BE0000 00082000 C:\WINDOWS\System32\TextInputFramework.dll
628F0000 0025E000 C:\WINDOWS\System32\CoreUIComponents.dll
62B50000 00089000 C:\WINDOWS\System32\CoreMessaging.dll
66070000 000D7000 C:\WINDOWS\SYSTEM32\wintypes.dll
6ED70000 0022A000 C:\WINDOWS\System32\iertutil.dll
76D80000 00080000 C:\WINDOWS\System32\clbcatq.dll
6D360000 00169000 C:\WINDOWS\SYSTEM32\WindowsCodecs.dll

Called from PDFBEGIN(0) in .\source\function\PRV2PDF.PRG
Called from FWPDF:NEW(180) in .\source\function\PRV2PDF.PRG
Called from FWSAVEPREVIEWTOPDF(62) in .\source\function\PRV2PDF.PRG
Called from XPRINTEND(405) in .\xprinter.PRG
Called from TPRNPCB:PRINTRESIDENT(304) in .\prnpcb.PRG
Called from TPRNPCB:PRINT(31) in .\prnpcb.PRG
Called from (b)TPCBCCM(1102) in .\taxcalc2.PRG
Called from TPCBCCM:DEBUGCALC(0) in .\taxcalc2.PRG
Called from P_CALC(1999) in .\p_calc.PRG
Called from ENDPAY(405) in .\endpay.PRG
Called from CHKEND(202) in .\pay.PRG
Called from (b)PAY(63) in .\pay.PRG
Called from TBTNBMP:CLICK(705) in btnbmp.prg
Called from TBTNBMP:LBUTTONUP(991) in btnbmp.prg
Called from TCONTROL:HANDLEEVENT(1791) in .\source\classes\CONTROL.PRG
Called from TBTNBMP:HANDLEEVENT(2042) in btnbmp.prg
Called from _FWH(3559) in .\source\classes\WINDOW.PRG
Called from WINRUN(0)
Called from TWINDOW:ACTIVATE(1097) in .\source\classes\WINDOW.PRG
Called from PAY(156) in .\pay.PRG
------------------------------------------------------------------------
 

Have a bunch of this message in pay.log

Code: Select all  Expand view

02/08/2023 12:12:47: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:48: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:49: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:49: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:50: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:51: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:51: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:52: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:53: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:53: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:54: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:55: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:56: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:57: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:57: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:58: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:59: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
02/08/2023 12:12:59: EXCESS RELEASE OF FONT COURIER NEW[ hFont : 0] ( nCount : 0 )
     <-TFONT:END(297) <-TPRINTER:END(498) <-XTPRINTER:END(374) <-XPRINTEND(408) <-TPRNPCB:PRINTRESIDENT(304) <-TPRNPCB:PRINT(31) <-(b)TPCBCCM(1102) <-TPCBCCM:DEBUGCALC(0) <-P_CALC(1999)
    ------------------------------------------------------------   
 

[nageswaragunupudi]

Using original printer class or derived class?
Using 'FILE cPdf" ?

[hua]

>Using original printer class or derived class?
Using derived class as I don't want to rewrite the report.

>Using 'FILE cPdf" ?
Yes