PDF Printer Name vom Ausgabefile

[juniorA]

Besteht die Chance beim Drucken über einen PDF Drucker an den Namen (mit Pfad) des Ausgabefiles zu kommen, bzw. diesen schon vorher zu setzen?

[Incocnito]

Hi,

das kommt natürlich immer auf den PDF-Drucker an.
Wir hatten (weit vor der einführung des Standard-PDF-Druckers von Windows) eDocPrintPro eingesetzt,
wodurch wir auch eigene "Drucker" registrieren konnten. Das war ganz nützlich, weil man über die
Registry sagen konnte in welchem Verzeichnis ein Drucker speichern soll und es gab keine
Aufforderung an den Benutzer sich ein Verzeichnis und einen Dateinamen zu überlegen.
Leider weiß ich nicht, wie komplex jetzt das Lizenzsystem von eDocPrintPro (geworden) ist,
oder ob es das überhaubt noch gibt.
Vielleicht kann dir jemand anderes helfen, wenn du dein Problem etwas detailierter beschreibst.
Wozu brauchst du das? Vielleicht gibt es andere Wege.
Bist du an einen speziellen Druckertreiber gebunden? Vielleicht kennt sich damit jemand aus.

Liebe Grüße
Incocnito

[juniorA]

Welches Problem habe ich konkret.
Ich habe eine Funktion mit der Bilder an den Drucker ausgeben will.
Wenn ich den Drucken mit Printer.BeginDoc starte, meldet sich der Dialog meines Standarddrucker.
In diesem Fall ist es Microsoft Print to PDF.
Wie bekomme ich zum einen den Pad und den Dateinamen wo die Druckausgabe hin gehen schon voreingestellt und
wie bekomme ich im Nachgang den Pfad und den Dateinamen ausgelesen.
So wie es aussieht, scheint Windows sich das ja zu merken, denn wenn ich das nächste Mal den Dialog aufrufe, stehen da ja die letzten Einstellungen. Auf welche Variablen muss ich da zu greifen???.

[himitsu]

Du kannst in .Fielename vor dem Execute auch etwas reinschreiben. (mit oder ohne Pfad)


[edit]
Mist, das ist ja kein Dialog vom Programm.

[Incocnito]

Ich befürchte nur, dass dann der Anwender das trotzdem noch ändern kann,
was ihm dann ja wieder nicht hilft.
Ich weiß nicht, ob man den zuletzt verwendeten Pfad/Dateinamen aus Windows auslesen kann.
Wäre für mich dann aber sowieso eher Quick-and-Dirty ...
Kann man FastReport nicht kostenlos nutzen? Wie sieht das Lizenztechnisch aus?
Der hat doch sicher auch einen PDF-Export. Dann wird der Anwender gar nicht mehr gefragt.
Vielleicht ist das ein Ansatz.

LG Incocnito

[himitsu]

Mist, das war ja kein "eigener" Dialog.

Aber irgendwie kann man oftmals dennoch den AusgabePfad übergeben. (hängt vom Treiber/Software ab)


Versuch mal einen Dateinamen+Pfad in den Title des Druckauftrags zu schreiben.


Systemverwaltung > Eigenschaften des Druckers, da kann man oft Ausgabepfad und Muster für Dateiname vorgeben.
Wird man bestimmt auch irgendwo in der Registry vorher ändern können.

Und mindestens für "MS Print to PDF" gibt es wohl auch paar Lösungen.
pdf-printer filename



Jo, oder eine Report- bzw. PDF-Komponente und dann programmintern.
Wir machen das über FastReport,
bzw. nur Bild(er) in PDF mit ImageEn.

[juniorA]

Werde leider nicht so glücklich mit den angegeben Link.
Wenn ich den Druckdialog starte, müssen ja irgendwoher die Voreinstellungen kommen. Es sind ja immer die letzten Einstellungen. Wenn alle Stränge reißen, besteht dann nicht die Möglichkeit automatisch ein PDF zu erstellen und dieses im Nachgang dann über einen eigen Dialog umzubenennen. Gibt es dazu einen PDF-Drucker?

[himitsu]

Zitat von himitsu:

Jo, oder eine Report- bzw. PDF-Komponente und dann programmintern.
Wir machen das über FastReport,
bzw. nur Bild(er) in PDF mit ImageEn.

?


delphi pdf komponente

[Michael II]

Zitat von juniorA:

Welches Problem habe ich konkret.
Ich habe eine Funktion mit der Bilder an den Drucker ausgeben will.
Wenn ich den Drucken mit Printer.BeginDoc starte, meldet sich der Dialog meines Standarddrucker.
In diesem Fall ist es Microsoft Print to PDF.
Wie bekomme ich zum einen den Pad und den Dateinamen wo die Druckausgabe hin gehen schon voreingestellt und
wie bekomme ich im Nachgang den Pfad und den Dateinamen ausgelesen.
So wie es aussieht, scheint Windows sich das ja zu merken, denn wenn ich das nächste Mal den Dialog aufrufe, stehen da ja die letzten Einstellungen. Auf welche Variablen muss ich da zu greifen???.

Wenn ich dich richtig verstehe, willst du Bilder als PDF drucken und dabei direkt in deinem Programm den Filenamen des PDFs und den Drucker festlegen ohne dass der Benutzer Dialoge (Drucker/Speichern) angezeigt erhält.

Das Beispiel von stackoverflow (Code unten rein kopiert, damit dieser nicht verloren geht, wenn stackoverflow eingestellt werden sollte) hilft dir nicht?

Drucker festlegen, Zielfile festlegen und dann mit Begindoc loslegen...(Code unten)
Bei meinem Windows 10.0.19043.964 wird so kein Dialog angezeigt - und das Speichern funktioniert.

Delphi-Quellcode:

procedure TForm89.Button1Click(Sender: TObject);
var
    PrtIndex   : Integer;
    DeviceMode : THandle;
    Device,
    Driver,
    Port       : array [0..255] of Char;
begin
    // Warning: The printer name is case sensitive
    PrtIndex := Printer.Printers.IndexOf('Microsoft Print to PDF');
    if PrtIndex < 0 then
        raise Exception.Create('Printer not found');
    Printer.PrinterIndex := PrtIndex;
    Printer.GetPrinter(Device, Driver, Port, DeviceMode);
    Printer.SetPrinter(Device, Driver, 'C:\Users\micha\Desktop\TestPrintToPdf.pdf', 0);
    Printer.BeginDoc;
    Printer.Canvas.TextOut(100, 100, 'Hallo delphipraxis.net');
    Printer.EndDoc;
end;

[bcvs]

Zitat:

Ich habe eine Funktion mit der Bilder an den Drucker ausgeben will.

Oder schau dir mal SynPDF an:
https://github.com/synopse/SynPDF

Damit kannst du auf den Canvas des PDFs schreiben und malen und direkt ein PDF erzeugen, ohne irgendwelche Druckertreiber.