Discussion :

[PhilLU]

Hello,
Je cherche à envoyer sur une imprimante (impression papier) un document PDF à l'aide de Ghostscript.
(gswin32c.exe ou gsdll32.dll)

Merci pour votre aide ;-)
PhilLu

[sergio_is_back]

Hello,
Je cherche à envoyer sur une imprimante (impression papier) un document PDF à l'aide de Ghostscript.
(gswin32c.exe ou gsdll32.dll)

Merci pour votre aide ;-)
PhilLu

Tu peux utiliser Ghostprint pour ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ShellExecute(Handle, 'open', 'gsprint.exe', PChar('"' + filename + '"'), '', SW_HIDE);

[Papy214]

Un pdf ne s'imprime pas tout seul sans GhostScript ?
C'est vraiment pour imprimer un PDF ou générer un pdf comme avec une imprimante virtuelle ?

[PhilLU]

Un pdf ne s'imprime pas tout seul sans GhostScript ?
C'est vraiment pour imprimer un PDF ou générer un pdf comme avec une imprimante virtuelle ?

C'est pour imprimer un PDF...

[PhilLU]

Tu peux utiliser Ghostprint pour ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ShellExecute(Handle, 'open', 'gsprint.exe', PChar('"' + filename + '"'), '', SW_HIDE);

Salut et merci pour cette proposition.
J'ai donc utilisé ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
source:= (PwideChar(extractFilePath(application.exename)+'source.pdf')); // fichier avec chemin
ShellExecute(Handle, 'open', 'gsprint.exe', PChar('"'+source+'"'), '', SW_HIDE);

...mais rien
Faut-il ajouter des param à gsprint.exe?
Merci pour votre aide...
PhilLu

[Papy214]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
  if ShellExecute(Handle, 'print', PChar('D:\fichier.pdf'), nil, nil, SW_SHOWNORMAL) <= 32 then
    ShowMessage(SysErrorMessage(GetLastError));

et comme ça ?

[Papy214]

ou alors :

ShellExecute(Handle, 'open', 'gsprint.exe', PChar('-sDEVICE=printer ' + '"'+source+'"'), '', SW_HIDE);

[SergioMaster]

Bonjour,

ne serait-ce un problème de pointeur ? PChar ou PAnsiChar that is the question
Idem, si j'en crois ce papier (le premier googolisé) j'ai un doute sur les " " pour le filename

[Papy214]

question: avez-vous consulté le fichier d'aide ? file:///C:/Program%20Files/Ghostgum/gsview/gsprint.htm

Tous les paramètres y sont décrits.