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