Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Print multiple datawindows in one PDF

Status
Not open for further replies.

bprin

Programmer
Jun 26, 2003
4
FR



This is my current code, I don't know how to specify the destination
file...


Code is in an EASERVER component. So external functions are prohibed....
Somebody can help me ?

// On détermine la datawindow et on appelle l'autre fonction
STRING ls_typebul
LONG l_job, l_row, l_row_count

l_row_count = ids_annu_mat.RowCount()

IF l_row_count = 0 THEN RETURN FALSE

// Don't work
//PrintSetPrinter ("Sybase DataWindow PS:file=~"text.ps~"")
PrintSetPrinter ("Sybase DataWindow PS")

l_job = PrintOpen ( "Génération des PDFs" )

FOR l_row = 1 TO l_row_count
ls_typebul = ids_annu_mat.GetItemString(l_row, "typebul")

CHOOSE CASE ls_typebul
CASE "H"
wf_aff_donnee_by_row(l_row)
PrintDataWindow ( l_job, ids_edition_h)

CASE "J"
wf_aff_donnee_by_row(l_row)
PrintDataWindow ( l_job, ids_edition_j)

END CHOOSE
NEXT

PrintClose(l_job)

// To convert, call a system command...
//c:\gs\gs8.00\ps2pdf.bat toto.ps toto.pdf

RETURN TRUE

 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top