Einzelnen Beitrag anzeigen

Volker Z.

Registriert seit: 4. Dez 2012
Ort: Augsburg, Bayern, Süddeutschland
419 Beiträge
 
Delphi XE4 Ultimate
 
#2

AW: Hilfe zu LMDPrintPreviewPanel

  Alt 7. Feb 2014, 17:26
Hallo,

Zitat:
ich möchte gerne auf diese Panel "drucken". Leider finde ich weder ein Beispiel noch sonst irgendwas [...]
Vielleicht hilft Dir folgendes weiter (TLMDPrintPreviewPanel, TLMDStringsPrintTask und TLMDPrinter auf 's Form klatschen):

Delphi-Quellcode:
  TForm1 = class(TForm)
    Button1: TButton;
    LMDPrintPreviewPanel1: TLMDPrintPreviewPanel;
    LMDStringsPrintTask1: TLMDStringsPrintTask;
    LMDPrinter1: TLMDPrinter;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LMDStringsPrintTask1.Lines.Add ('Hallo DelTurbo,');
  LMDStringsPrintTask1.Lines.Add ('ein Beispiel für die Nutzung eines TLMDPrintPreviewPanel');
  LMDStringsPrintTask1.PreparePages;
  LMDPrintPreviewPanel1.PrinterHelper := LMDPrinter1.PrinterHelper
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  LMDStringsPrintTask1.Printer := LMDPrinter1 // oder im OI setzten
end;
Zitat:
[...] Ich dachte erst, das ding hätte einen Canvas. Hat es aber nicht.
Wenn Du unbedingt ein Canvas benötigst, dann könntest Du auch eine TLMDImagePrintTask nutzen.

Gruß
Volker Zeller
  Mit Zitat antworten Zitat