![]() |
PDF ausdrucken
Hi!
So drucke ich eine PDF Datei aus:
Delphi-Quellcode:
Problem: Adobe öffnet sich aber beendet sich nach dem Drucken nicht selber. Wie geht das ?
ShellExecute_AndWait('print', Path + '\' + SearchRec.Name, '','', SW_HIDE, True)
Delphi-Quellcode:
function ShellExecute_AndWait(Operation, FileName, Parameter, Directory: string;
Show: Word; bWait: Boolean): Longint; var bOK: Boolean; Info: TShellExecuteInfo; begin FillChar(Info, SizeOf(Info), Chr(0)); Info.cbSize := SizeOf(Info); Info.fMask := SEE_MASK_NOCLOSEPROCESS; Info.lpVerb := PChar(Operation); Info.lpFile := PChar(FileName); Info.lpParameters := PChar(Parameter); Info.lpDirectory := PChar(Directory); Info.nShow := Show; bOK := Boolean(ShellExecuteEx(@Info)); if bOK then begin if bWait then begin while WaitForSingleObject(Info.hProcess, 100) = WAIT_TIMEOUT do Application.ProcessMessages; bOK := GetExitCodeProcess(Info.hProcess, DWORD(Result)); end else Result := 0; end; if not bOK then Result := -1; end; |
Re: PDF ausdrucken
Hallo,
kanst Du dem AdobeReader Fenster nicht eine WM_CLOSE Nachricht schicken?
Delphi-Quellcode:
Grüße und noch einen schönen 2. Advent
PostMessage(Handle, WM_CLOSE, 0, 0); { Close the app }
Klaus |
Re: PDF ausdrucken
Zitat:
Gibt es evtl. einen Startparameter beim Acrobat Reader? |
Re: PDF ausdrucken
Guten Abend,
mit welchen Parametern startest Du denn Deinen Arcobat Reader? Im Web habe ich folgendes gefunden: Zitat:
Klaus |
Re: PDF ausdrucken
Zitat:
Werde mal das probieren: PathToAcrobat.exe /t Filename Printer PrintDriver PrinterPort Wobei /t = prints the document and is supposed to terminate. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:07 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz