https://dataflex.wiki/api.php?action=feedcontributions&feedformat=atom&user=Danwalsh46DataFlex Wiki - User contributions [en]2026-05-02T22:39:55ZUser contributionsMediaWiki 1.43.8https://dataflex.wiki/index.php?title=Print_to_a_file_using_reports&diff=1832Print to a file using reports2008-03-29T16:58:31Z<p>Danwalsh46: /* Using WinPDF Pro */</p>
<hr />
<div>How can I print directly to a file such as PDF or Postscript?<br />
<br />
==== Using WinPDF Pro ====<br />
The example below uses WinPDF Pro printer driver for the PDF generation, Winprint (or at least the report object in VDF) for the reporting and MAPI for sending the mails directly. Note that each invoice in this example is printed individually.<br />
<br />
Pardon the jumbled looking code, but with Win2PDF pro you can do the following:<br />
<br />
function JumpStartReport string sInvoice boolean bEmail string sEmailAddress returns boolean<br />
boolean bExists bMailed<br />
integer iToPrinter iRepObj iHr iMn iRetval<br />
string sVal sDateTime sHr sMn sSetupFile sPath sFilename<br />
string sKey sSubKey sOldRegRoot sOldRegBranch sCurrentDevice sMessage<br />
handle hoMapiSession<br />
dWord dWWSecurityOptions dWWFileOptions dRetVal<br />
date dToday<br />
//<br />
get Report_Object_Id To iRepObj<br />
//<br />
set pSelStart1 of iRepObj To sInvoice<br />
set pSelStop1 of iRepObj To sInvoice<br />
//<br />
if (bEmail) ;<br />
set OutPut_Device_Mode to PRINT_TO_PRINTER_NO_DIALOG<br />
else ;<br />
set OutPut_Device_Mode to PRINT_TO_PRINTER<br />
//<br />
if (bEmail) begin<br />
move ("Please find attached your invoice" * sInvoice + ".") to sMessage<br />
get DFGetCurrentDevice of iRepObj to sCurrentDevice<br />
send DFSetDevice of iRepObj "Win2PDF"<br />
//<br />
get psHome of (phoWorkspace(ghoApplication)) to sPath<br />
move (sPath + "Documents\") to sPath<br />
move ("Invoice_" + sInvoice + ".pdf") to sFilename<br />
Get_Registry_Root to sOldRegRoot sOldRegBranch<br />
move "Dane Prairie Systems" to sKey<br />
move "Win2PDF" to sSubKey<br />
Set_Registry_Root to HKEY_LOCAL_MACHINE "SOFTWARE"<br />
Set_Foreign_Profile_String sKey sSubKey "PDFFileName" to (sPath + sFilename)<br />
Set_Foreign_Profile_String sKey sSubKey "PDFTitle" to ("Invoice " + sInvoice)<br />
Set_Foreign_Profile_String sKey sSubKey "PDFAuthor" to "Calendar Invoicing"<br />
Set_Foreign_Profile_String sKey sSubKey "PDFSubject" to ("Calendar Invoice")<br />
Set_Registry_Root to sOldRegRoot sOldRegBranch<br />
//Get CheckFileExists sFileName to bExists<br />
//If (bExists) Set pbOrgCopyPrinted to TRUE<br />
end // if (bEmail) begin<br />
//<br />
send Run_Report to iRepObj<br />
//<br />
if (NOT(bEmail)) procedure_return<br />
// restore the print device<br />
send DFSetDevice of iRepObj sCurrentDevice<br />
// gotta have it<br />
move oMapiSession to hoMapiSession<br />
//showln hoMapiSession<br />
if (NOT(hoMapiSession > 0)) begin<br />
send Stop_Box "Unable to email invoice."<br />
procedure_return<br />
end<br />
send DoInit of hoMapiSession<br />
set psMessageSubject of hoMapiSession to ("Daffie Duck Invoice" * sInvoice)<br />
set psMessageText of hoMapiSession to sMessage<br />
send DoAddReceiver of hoMapiSession MAPI_TO (trim(sEmailAddress)) "" "" 0<br />
send DoAddAttachment of hoMapiSession (sPath + sFilename) sFilename<br />
get Logon of hoMapiSession "" "" 0 to iRetval<br />
//showln iRetval<br />
get SendMail of hoMapiSession (MAPI_NEW_SESSION IOR MAPI_LOGON_UI) TRUE to iRetval<br />
//<br />
showln (sInvoice * trim(sEmailAddress) * string(iRetval))<br />
move (iRetval = 0) to bMailed<br />
//<br />
get Logoff of hoMapiSession to iRetval<br />
//<br />
function_return bMailed<br />
end_function // JumpStartReport<br />
<br />
====External Links====<br />
[http://www.sture.dk/wasp/threadreport.asp?ThreadId=40911 OT: Print to a File]</div>Danwalsh46