Text zum Drucker schicken

[venice2]

Habe das hier gefunden

Delphi-Quellcode:

uses
  Printers;

procedure PrintTest;
var
  pt: System.Text;

begin
  AssignPrn(pt);
  Rewrite(pt);

  Printer.Canvas.Font.Name := 'Arial';
  Printer.Canvas.Font.Size := 12;

  WriteLn(pt, 'UnicodeText');
     
  System.Close(pt);
end;

reicht das aus? Sollte schon Unicode fähig sein.

EDIT:
Scheint so.
Zumindest funktioniert es mit Microsoft Print to PDF.

Hat sich erledigt.

[himitsu]

Printers

Printer.Canvas.DrawText



Printer.SetPrinter

[venice2]

Zitat von himitsu:

Printers

Printer.Canvas.DrawText

Ich möchte ja keinen Text zeichnen sondern diesen nur an den Drucker schicken.
Das Schnipsel oben funktioniert soweit.

Oder wolltest du mir sagen das wäre falsch?

Zitat:

Printer.SetPrinter

Muss ich das ? Es reicht doch wenn man den von Windows voreingestellten Drucker verwendet.

[Jasocul]

Zitat von venice2:

Zitat:

Printer.SetPrinter

Muss ich das ? Es reicht doch wenn man den von Windows voreingestellten Drucker verwendet.

Ja, weil es vorkommen kann, dass Windows keinen voreingestellten Drucker hat.
Hatte ich erst kürzlich wieder, obwohl dort eigentlich ein Drucker eingestellt ist. Der hat aber nicht mehr mit Windows kommuniziert und Windows hatte dann keinen voreingestellten Drucker mehr.

[venice2]

Zitat von Jasocul:

Zitat von venice2:

Zitat:

Printer.SetPrinter

Muss ich das ? Es reicht doch wenn man den von Windows voreingestellten Drucker verwendet.

Ja, weil es vorkommen kann, dass Windows keinen voreingestellten Drucker hat.
Hatte ich erst kürzlich wieder, obwohl dort eigentlich ein Drucker eingestellt ist. Der hat aber nicht mehr mit Windows kommuniziert und Windows hatte dann keinen voreingestellten Drucker mehr.

Danke für die Info.
Nur leider kenne ich mich damit gar nicht aus.

Wo oder wie komme ich an den Drucker dran? Kann ja nicht irgend etwas nehmen.
Meine Funktion sieht so aus die geht mit dem PDF Drucker von MS, habe keinen eigenen.
Den habe ich als Default eingestellt.

Delphi-Quellcode:

procedure SendToPrinter(WinHandle: HWND);
var
  pt: Text;
  hCtrl: HWND;
  Count, SelItems, K: Integer;
  SelItem : array of Integer;
  sBuffer: string;
  buffer: string;
begin
  hCtrl := GetDlgItem(WinHandle, ID_LISTBOX);
  Count := SendMessage(hCtrl, LB_GETCOUNT, 0, 0);
  if (Count > 0) then
  begin
    SelItems := SendMessage(hCtrl, LB_GETSELCOUNT, 0, 0);
    if (SelItems > 0) then
    begin
      SetLength(SelItem, SelItems);
      SendMessage(hCtrl, LB_GETSELITEMS, SelItems, LPARAM(SelItem));
      for K := 0 to SelItems - 1 do
      begin
        sBuffer := GetTextListbox(hCtrl, SelItem[K]);
        Buffer := buffer + sBuffer + #13#10;
      end;
      // Drucker part
      AssignPrn(pt);
      Rewrite(pt);

      Printer.Canvas.Font.Name := 'Segoe UI';
      Printer.Canvas.Font.Size := 12;

      WriteLn(pt, Buffer);

      Close(pt);
      Buffer := '';
      SetLength(SelItem, 0);
    end else
    begin
      for K := 0 to Count - 1 do
      begin
        sBuffer :=  GetTextListbox(hCtrl, K);
        Buffer := buffer + sBuffer + #13#10;
      end;
      // Drucker part
      AssignPrn(pt);
      Rewrite(pt);

      Printer.Canvas.Font.Name := 'Segoe UI';
      Printer.Canvas.Font.Size := 12;

      WriteLn(pt, Buffer);

      Close(pt);
      Buffer := '';
    end;
  end;
end;

Ich selektiere einen Bereich in meiner ListBox.
Und schicke den selektierten Text direkt an den Drucker.

Wenn nichts selektiert ist dann wird der ganze Text verschickt.

[Jasocul]

Wenn es nicht automatisch läuft, kannst du einen PrinterDialog davor machen. Ansonsten solltest du es zumindest in einem Try-Except-Block kapseln.

[venice2]

Zitat von Jasocul:

Wenn es nicht automatisch läuft, kannst du einen PrinterDialog davor machen. Ansonsten solltest du es zumindest in einem Try-Except-Block kapseln.

Muss mich nachher mal darin einlesen oder nach ein paar Beispielen suchen.
Kenn mich damit nicht so richtig aus.

Man kann nicht alles wissen

[haentschman]

Moin...

Ich empfehle ein Print System wie FastReport. Die kennen sich besser mit Drucken aus als wir. Der manuelle Druck ist mit Sicherheit für das Vorhaben aussreichend...aber ohne visuelle Positierung der Texte. Das kommt mit Sicherheit gleich danach...der Wunsch nach "Schönheit". Deshalb denke ich, das die Auseinandersetzung mit FastReport o.ä. besser ist. Die Zeit des Lernens ist da besser aufgehoben...

[venice2]

Zitat von haentschman:

Moin...

Ich empfehle ein Print System wie FastReport. Die kennen sich besser mit Drucken aus als wir. Der manuelle Druck ist mit Sicherheit für das Vorhaben aussreichend...aber ohne visuelle Positierung der Texte. Das kommt mit Sicherheit gleich danach...der Wunsch nach "Schönheit". Deshalb denke ich, das die Auseinandersetzung mit FastReport o.ä. besser ist. Die Zeit des Lernens ist da besser aufgehoben...

Moin.
Das ist ein Runtime Tracer da ist nix mit Schönheit der Text muss nur rüber gebracht werden.
Im Grunde reicht ein copy\paste ins ClipBoard was ich ja zusätzlich noch mache.
Aber dafür jetzt extra Software zu bemühen ? Weis nicht ob das für ein Freeware Projekt das wahre ist.

Man muss das im Verhältnis immer etwas abwägen.

[freimatz]

Dann würde ich nur ClipBoard anbieten