AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Drucken mit gleichzeitigem generieren eines PDFs
Thema durchsuchen
Ansicht
Themen-Optionen

Drucken mit gleichzeitigem generieren eines PDFs

Ein Thema von oakley · begonnen am 25. Feb 2020 · letzter Beitrag vom 8. Mär 2022
Antwort Antwort
Seite 1 von 2  1 2      
oakley

Registriert seit: 15. Aug 2005
287 Beiträge
 
#1

Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Feb 2020, 12:49
Hallo zusammen,

ich würde gerne einen Druckertreiber bauen, der gleichzeitig auf den Windows Standard Drucker druckt und ein PDF erzeugt.
Ich habe schon die Sufu benutzt und auch einen Verweis zu den RedMon Komponenten gefunden aber die haben keinen Support für Win10.
Gibt es sowas eventuell schon als fertiges Produkt? Wie könnte ich da am Besten ansetzen?

Es geht im Prinzip darum, dass ich eine Software habe, die Papierdokumente erzeugt aber gleichzeitig kein PDF erzeugen kann. Und das möchte ich mit diesem Treiber umgehen.

LG

Mirko

Geändert von oakley (25. Feb 2020 um 14:02 Uhr)
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
961 Beiträge
 
Delphi 6 Professional
 
#2

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Feb 2020, 14:55
Hmm..

Redmon läuft auch auf W10 (zu mindestens hier bei uns )

Generell kannst Du nun einen 'echten' Treiber programmieren, welcher als Weiche fungiert, dann ist Delphi aber raus...

Oder per Redmon eine Weiche mit einem eigenen Tool, welches das Erzeugen der PDFs händelt und die Druckerdaten an den richtigen Drucker weiter gibt.

Dies funktioniert aber nur praktikabel mit PS-Script fähigen Drucker, da dann die Erzeugung durch Weiterreichung an z.B. GhostScript für die PDF-Erzeugung gut funktioniert und die Druckerdaten einfach an den Drucker weiter gegeben werden können.
(Ja ich Verwende Delphi 6 Pro und will NICHT wechseln!)
  Mit Zitat antworten Zitat
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.690 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Feb 2020, 15:41
Ich habe die Frage bestimmt nicht korrekt verstanden, hier ein schnippsel wie man den Microsoft Print to PDF direkt anspricht und ein PDF erzeugt.

Delphi-Quellcode:
var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..80] of Char;
begin
  Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF'); // drucker
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(Device, Driver, 'Test.pdf', 0); // dateiname
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 'Test'); // pdf inhalt
  Printer.EndDoc;
end;
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Feb 2020, 18:01
Das erzeugt PDFs. Er hat aber ein Word Dokument, welches er drucken und gleichzeitig als PDF speichern will
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
961 Beiträge
 
Delphi 6 Professional
 
#5

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Feb 2020, 18:14
Hmm..

Oder ganz anders:
Du nimmst dir z.B. PDFCreator, lässt damit automatisch das PDF in einem festen Verzeichnis ablegen.
Zusätzlich hast Du einen Dienst, welcher auf das Verzeichnis schaut und beim Ablegen einer Datei, diese auf einem Drucker ausgibt.

Alles kannst Du ohne Programmierung eines Treibers hinbekommen, nur den Dienst zum Verzeichnis überwachen mit Drucken müsstest Du machen, oder mal Googln..
(Ja ich Verwende Delphi 6 Pro und will NICHT wechseln!)
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#6

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Feb 2020, 19:04
Man braucht keinen Dienst, um ein Verzeichnis zu überwachen. Das kann man mit einem ganz normalen Programm: ReadDirectoryChanges.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
UliTs

Registriert seit: 20. Mai 2020
Ort: 52074 Aachen
50 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 23. Mai 2020, 09:41
Ich habe die Frage bestimmt nicht korrekt verstanden, hier ein schnippsel wie man den Microsoft Print to PDF direkt anspricht und ein PDF erzeugt.

Delphi-Quellcode:
var
  DeviceMode: THandle;
  Device, Driver, Port: array[0..80] of Char;
begin
  Printer.PrinterIndex := Printer.Printers.IndexOf('Microsoft Print to PDF'); // drucker
  Printer.GetPrinter(Device, Driver, Port, DeviceMode);
  Printer.SetPrinter(Device, Driver, 'Test.pdf', 0); // dateiname
  Printer.BeginDoc;
  Printer.Canvas.TextOut(100, 100, 'Test'); // pdf inhalt
  Printer.EndDoc;
end;
Vielen Dank für diesen Code! Wenn ich es richtig verstanden habe, ist bei Windows10 der "Microsoft Print to PDF" Treiber grundsätzlich vorhanden.
Wenn man statt des Dateinamens einen Leerstring ( '' ) angibt, fragt Windows nach "begindoc" verständlicherweise nach selbigem.
Gibt es eine Möglichkeit, einen Dateinamen als Voreinstellung anzugeben, der im Dialog nach "begindoc" automatisch vorgeschlagen wird?
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
3.932 Beiträge
 
Delphi 12 Athens
 
#8

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Mai 2020, 06:49
Gibt es eine Möglichkeit, einen Dateinamen als Voreinstellung anzugeben, der im Dialog nach "begindoc" automatisch vorgeschlagen wird?
Bräuchte man dafür nicht einfach nur einen eigenen Dialog davorzuschalten ?
  Mit Zitat antworten Zitat
Benutzerbild von JanWe
JanWe

Registriert seit: 23. Mär 2015
Ort: NRW
78 Beiträge
 
Delphi 7 Personal
 
#9

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 25. Mai 2020, 17:29
Hmm..

Installiere doch auf dem Server z.B. PDFCreator und share diesen Drucker dann.
evtl. Vorsicht mit dem PDFcreator - und gerade auf Servern (noch sensibler).

jedenfalls das Setup-Programm für Windows bringt beim installer (oder brachte früher) eine Tool-Bar (für sämtliche Browser) oder ähnliche Adware mit.
Oder zumindest diesen "PDF-Architect". (wohl auch lästige Zwangsbeglückung)

Hab den nicht installiert, da FreePDF (wie Du auch erwähnt hast) seine Dienste ohne jeden Beigeschmack hervorragend tut.
Ist zwar ein VisualBasic Programm, aber ich wüßte kein besseres für Windows, daß ich mit gutem Gewissen empfehlen könnte.
Jan
Allen demnächst ein gutes 2023!
  Mit Zitat antworten Zitat
UliTs

Registriert seit: 20. Mai 2020
Ort: 52074 Aachen
50 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Drucken mit gleichzeitigem generieren eines PDFs

  Alt 26. Mai 2020, 16:26
Gibt es eine Möglichkeit, einen Dateinamen als Voreinstellung anzugeben, der im Dialog nach "begindoc" automatisch vorgeschlagen wird?
Bräuchte man dafür nicht einfach nur einen eigenen Dialog davorzuschalten ?
Ja danke! Du hast Recht! Die Lösung war zu einfach .
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:08 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz