Memo text ausdrucken

[Finki]

Gut du hast es versucht dafür bin ich dir schon dankbar. Also vielen vielen dank.

[Finki]

also hier ist mal der code wie es aktuell ist wobei der besagte fehler auftritt

die uses

Code:

uses
  Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ComCtrls, Buttons, EditBtn, ExtCtrls, PopupNotifier, Printers, Windows,
  Menus, Grids;

die procedure

Code:

   
type

  { TForm1 }

  TForm1 = class(TForm)
  PrintDialog1: TPrintDialog;
  btnPrint: TSpeedButton;   
  procedure btnPrintClick(Sender: TObject);

der button btnPrint

Code:

procedure TForm1.btnPrintClick(Sender: TObject);
begin

Drucken(Memo.Lines);

end;

und die procedure Drucken

Code:

procedure TForm1.Drucken(sl: TStrings);
var zeile, x, y: integer;
breite, hoehe, randlinks, randoben: integer;
begin
if PrintDialog1.Execute then
begin
   Printer.BeginDoc; //Druckjob beginnen
   SetMapMode(Printer.Canvas.Handle, MM_LOMETRIC); //Umstellen auf 1/10 mm

   //Schrift-Einstellungen:

   Printer.Canvas.Font.Name:='Courier New';
   Printer.Canvas.Brush.Color:=clWhite;
   Printer.Canvas.Font.Height:=50; //5 mm

   //Blattgöße in 1/10 mm ermitteln:
   breite:=GetDeviceCaps(Printer.Canvas.Handle, HORZSIZE)*10;
   hoehe:=GetDeviceCaps(Printer.Canvas.Handle, VERTSIZE)*10;
   randlinks:=60; //0,6 cm
   randoben:=150; //1,5 cm
   x:=randlinks;
   y:=randoben*-1;
   for zeile:=0 to sl.Count-1 do
     begin
       if -y>(hoehe-2*randoben) then
          begin
          y:=randoben*-1;
          Printer.NewPage;
          end;
       if y=-randoben then
          begin
          Printer.Canvas.Font.Style:=[fsbold];
          Printer.Canvas.TextOut(x, y, 'Seite '+
          IntToStr(Printer.PageNumber));
          Printer.Canvas.Font.Style:=[];
          y:=y-Printer.Canvas.TextHeight(sl[zeile]);
          end;
     Printer.Canvas.TextOut(x, y, sl[zeile]);
     y:=y-Printer.Canvas.TextHeight(sl[zeile]);
     end;
   Printer.EndDoc;
end;
end;

[MrMooed]

Da hast du dir echt einen tollen "Fehler" ausgesucht

Es sollte genügen, wenn du die TPrintersDialog Komponente (unter dem Reiter 'Dialoge') auf das Formular ziehst (nur 'PrintersDlgs' in die uses einzufügen klappt irgendwie nicht )

[Finki]

Zitat von MrMooed:

Es sollte genügen, wenn du die TPrintersDialog Komponente (unter dem Reiter 'Dialoge') auf das Formular ziehst

hab ich gemacht!!

Zitat von MrMooed:

(nur 'PrintersDlgs' in die uses einzufügen klappt irgendwie nicht )

logisch weiß ich doch

[MrMooed]

Also .. bei mir klappt es wie's Brezelbacken

habe deinen Code 1:1 übernommen und ihm ein Memo1.Lines übergeben - Drucker Auswahl erschienen und ich konnte drucken.
An welcher Stelle kommt denn der Fehler genau? einfach mal einen Brakepoint nach dem Begin setzen (in die Zeile klicken, F5 drücken) und dann durch den Code bewegen (F8)

[Finki]

Kann es evtl daran liegen das meine memo componente erst während dem ausführen des Programms erstellt wird?

[Bjoerk]

Schau eventl. mal hier (ganz unten).

MfG
Thomas

[Finki]

Zitat von MrMooed:

An welcher Stelle kommt denn der Fehler genau? einfach mal einen Brakepoint nach dem Begin setzen (in die Zeile klicken, F5 drücken) und dann durch den Code bewegen (F8)

Sobald der im Befehl Printer.BeginDoc is komisch oder

[Sir Rufo]

Zitat von Finki:

Zitat von MrMooed:

An welcher Stelle kommt denn der Fehler genau? einfach mal einen Brakepoint nach dem Begin setzen (in die Zeile klicken, F5 drücken) und dann durch den Code bewegen (F8)

Sobald der im Befehl Printer.BeginDoc is komisch oder

Wenn du in deinem Code stehen hast

Delphi-Quellcode:

var
  Printer : TPrinter;

und dann irgendwo danach
Printer.BeginDoc; dann ist es doch mehr als logisch, dass dir da eine Zugriffsverletzung um die Ohren gehauen wird.
Oder hast du irgendwo in deinem Code der Variablen eine Instanz zugewiesen?

Automatisch passiert das nämlich nicht.

Diese Printer-Variable muss weg, definitiv