Textdatei drucken

[Bea]

Hallo,
Frage 1:
Ich möchte die Datei (z.B. C:\Test.txt) so wie sie ist drucken.
Den Drucker möchte ich im Quelltext angeben können,
denn das ganze soll im Hintergrund passieren,
ohne daß erst ein Dialog aufgeht oder ein Anwender eine Auswahl treffen muß.
Ich krieg das nicht hin, obwohl ich dachte,
das ist eine ganz einfache Aufgabe.
Kann mir bitte jemand helfen?

Frage 2:
Außerdem möchte ich von meiner Anwendung aus das Programm UltraEdit ansteuern,
die Datei (z.B. C:\Test.txt) dorthin senden und ausdrucken lassen.
Hab gelesen, daß UltraEdit folgenden DDE- Befehl unterstützt:

[printto("Dateiname","Druckername","Druckertreiber" ,"Port")]

Leider hab ich noch nie was mit DDE gemacht,
habe es aber natürlich mal versucht mit DdeClientConv1 und DdeClientItem,
aber ich krieg das nicht hin.
Kann mir auch hierbei bitte jemand helfen?

Danke im Vorraus

[Gentleman]

hi!

um zu drucken könntest du dir die textdatei doch einfach in ein Memo laden und von da aus drucken.

um das ganze ohne den PrintDialog zu drucken könntest du folgendes machen:

Delphi-Quellcode:

uses Printers;
...
Printer.PrinterIndex:= 0; //<-- Auswahl des Druckers
  with Printer do
    begin
      BeginDoc;
      Canvas.TextOut(0, 0, Memo1.Text);
      EndDoc;
    end;

mit Printer.PrinterIndex kannst du den gewünschten drucker auswählen. wenn du es weglässt wird auf dem standarddrucker gedruckt.

zu frage 2 kann ich dir leider auch keine Antwort geben...bemühe doch einfach mal google

[Bea]

Danke für deine Hilfe, ich hatte an so eine Lösung auch schon gedacht, aber die Größe eines Memos ist doch beschränkt und ich weiß nicht, wie groß diese Textdateien werden können.

[Gentleman]

ich weiß nicht genau wieviel text in ein memo passt. ansonsten könntest du die textdatei in zwei oder mehr teile aufteilen und danach in verschiedenen memos aufteilen.

[Steve]

Hi,

ich werf hier mal TStringList in den Raum...

Gruß
Stephan

[Deshwitat]

Zitat von Gentleman:

hi!

um zu drucken könntest du dir die textdatei doch einfach in ein Memo laden und von da aus drucken.

um das ganze ohne den PrintDialog zu drucken könntest du folgendes machen:

Delphi-Quellcode:

uses Printers;
...
Printer.PrinterIndex:= 0; //<-- Auswahl des Druckers
  with Printer do
    begin
      BeginDoc;
      Canvas.TextOut(0, 0, Memo1.Text);
      EndDoc;
    end;

mit Printer.PrinterIndex kannst du den gewünschten drucker auswählen. wenn du es weglässt wird auf dem standarddrucker gedruckt.

zu frage 2 kann ich dir leider auch keine Antwort geben...bemühe doch einfach mal google

Hi zusammen
Hierzu hab ich mal ne Frage !!
Was ist, wenn ich nen Text mit Hilfe eines PrintDialogs drucken möchte ?
Wie muss ich den oben genannten Code ändern ? Also ich mein, so dass
ich die üblichen Einstellungen den User wählen lassen möchte...

schonmal danke im vorraus

[Steve]

Zitat von Deshwitat:

Was ist, wenn ich nen Text mit Hilfe eines PrintDialogs drucken möchte ?
Wie muss ich den oben genannten Code ändern ?

Hi,

um das ganze mit dem PrintDialog zu drucken könntest du folgendes machen:

Delphi-Quellcode:

uses Printers;
...
prDlg : TPrintDialog;
...
IF prDlg.Execute THEN  //<-- Printer.PrinterIndex:= 0;  kann man nun weglassen
BEGIN
  with Printer do
  begin
     BeginDoc;
     Canvas.TextOut(0, 0, Memo1.Text);
     EndDoc;
  end;
END;

Gruß
Stephan

[Deshwitat]

Ja, danke ^^
So hab ichs auch gemacht
(sry, hab vergessen zu schreiben, dass es sich erledigt hab ~~)
aber vielen Dank für deine Hilfe
Gruß
Desh