Shellexecute -> Printto -> Acrobat

[Florian Sundermann]

Hi Leute,

ich benutzte eine Procedure um mit delphi eine Datei auf einen Drucker
meiner wahl auszudrucken

Code:

procedure TForm1.PrintFile(aDatei:string; aDrucker:integer=-1);
var
Device : array[0..255] of char;
Driver : array[0..255] of char;
Port : array[0..255] of char;
S: String;
hDeviceMode: THandle;
begin
Printer.PrinterIndex := aDrucker; // select a printer
Printer.GetPrinter(Device, Driver, Port, hDeviceMode);
S:= Format('"%s" "%s" "%s"',[Device, Driver, Port]);
ShellExecute( handle, 'printto', PChar(aDatei), Pchar(S), Nil, sw_hide );
Application.ProcessMessages;
end;

geht soweit auch prima
nur wenn ich dir procedure mehrmals hintereinander aufrufe geht es zB
beim AcrobatReader nicht weil der dann nur den ersten druckauftrag
bearbeitet... jemand ne idee? Bei anderen Programmen wie msWord usw
gehts ohne probleme.

Greetz
Florian

[Malte Tuellmann]

Florian Sundermann wrote:

[...]

Post by Florian Sundermann
ShellExecute( handle, 'printto', PChar(aDatei), Pchar(S), Nil, sw_hide );

[...]

Post by Florian Sundermann
geht soweit auch prima
nur wenn ich dir procedure mehrmals hintereinander aufrufe geht es zB
beim AcrobatReader nicht weil der dann nur den ersten druckauftrag
bearbeitet... jemand ne idee? Bei anderen Programmen wie msWord usw
gehts ohne probleme.

Moin Florian,

solltest Du ernstlich PDF im Batch drucken wollen, tu' es nicht mit Adobes Reader.

Gruß

Malte

[Florian Sundermann]

Sorry aber ich muss so drucken weil alle Dateien die einer bestimmten
Artikelnummer zugeordnen sind ausdrucken werden sollen... dH ich muss
auf das zurückgreifen was installiert ist...
oder gibts was anderes wie ich pdfs direkt aus delphi drucken kann?

Greetz
Florian

[Malte Tuellmann]

Post by Florian Sundermann
Sorry aber ich muss so drucken weil alle Dateien die einer bestimmten
Artikelnummer zugeordnen sind ausdrucken werden sollen... dH ich muss
auf das zurückgreifen was installiert ist...
oder gibts was anderes wie ich pdfs direkt aus delphi drucken kann?

mehrere hundert PDFs in der richtigen Reihenfolge auf einen Drucker Deiner Wahl
ohne daß mal einer in Adobes Nirvana verschwindet:

<Werbung>
http://www.sedtech.com/isedquickpdf/?page=home
</Werbung>

oder irgendein Anderer
;)

Malte