Hilfe zu LMDPrintPreviewPanel

[DelTurbo]

Hi,
ich möchte gerne auf diese Panel "drucken". Leider finde ich weder ein Beispiel noch sonst irgendwas. Ich dachte erst, das ding hätte einen Canvas. Hat es aber nicht.

Hat schon jemand etwas mit diesem Panel gemacht, oder kann mir eine anderes PrintPreviewPanel empfehlen?

Vielen dank im voarus

[Volker Z.]

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ß

[DelTurbo]

Geil. Klappt. Vielen dank und netten Gruß