Declare Integer ShellExecute In SHELL32.Dll ;
INTEGER handle,;
STRING @sFile,;
STRING @lp,;
STRING @Dir,;
STRING @dir1,;
INTEGER ncmd
Local lnRetval, lcFile, lcOperation
lcOperation = "Print"
Cd C:\
nPDFCount = Adir(myPDFFiles, '*.PDF') && Create array
For i = 1 To nPDFCount
If !Empty(myPDFFiles[i,1])
lcFile = myPDFFiles[i,1]
lnRetval = ShellExecute(0, lcOperation, lcFile, "", "", 1)
Endif
Endfor
>I have a customer who regularly receives hundreds of PDF files and needs to print them in a certain order, hopefully in an existing VFP application. Does anyone know how to do this?
>
>Thanks for your help!
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement