Many thanks, Rick.
Regards, saludos.
How to print PDF file without GUI?
Re: How to print PDF file without GUI?
João Santos - São Paulo - Brasil
Re: How to print PDF file without GUI?
Dear Master Rao & Karinha,
This code is not working. It prints unreadable text.
Thanks all.
This code is not working. It prints unreadable text.
Thanks all.
nageswaragunupudi wrote:Can you please try this function and provide your valuable feed-back?
Code: Select all
function PrintPDF( cPdf ) local oWord, oDoc, lVisible if Empty( cPdf ) .or. !File( cPdf ) MsgAlert( "Invalid File Name" ) return .f. elseif ( oWord := WinWordObj() ) == nil MsgAlert( FWString( "Word not installed" ) ) return .f. endif oWord:DisplayAlerts := .f. lVisible := oWord:Visible oWord:Visible := .f. oDoc := oWord:Documents:Open( truename( cPdf ), .f., .t. ) oDoc:PrintOut() oDoc:Close() oWord:Visible := lVisible return .t.
Regards,
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
Dutch
FWH 19.01 / xHarbour Simplex 1.2.3 / BCC73 / Pelles C / UEStudio
FWPPC 10.02 / Harbour for PPC (FTDN)
ADS V.9 / MySql / MariaDB
R&R 12 Infinity / Crystal Report XI R2
(Thailand)
- nageswaragunupudi
- Posts: 8017
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
- Contact:
Re: How to print PDF file without GUI?
Thanks for the feedbackdutch wrote:Dear Master Rao & Karinha,
This code is not working. It prints unreadable text.
Thanks all.nageswaragunupudi wrote:Can you please try this function and provide your valuable feed-back?
Code: Select all
function PrintPDF( cPdf ) local oWord, oDoc, lVisible if Empty( cPdf ) .or. !File( cPdf ) MsgAlert( "Invalid File Name" ) return .f. elseif ( oWord := WinWordObj() ) == nil MsgAlert( FWString( "Word not installed" ) ) return .f. endif oWord:DisplayAlerts := .f. lVisible := oWord:Visible oWord:Visible := .f. oDoc := oWord:Documents:Open( truename( cPdf ), .f., .t. ) oDoc:PrintOut() oDoc:Close() oWord:Visible := lVisible return .t.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India