DBGrid ausdrucken

[Thomas F]

Zitat von mkinzler:

Die Version für deine Delphiversion (D10)?

reportman2_7e
Ist egal, ich hab meine Druckvorschau jetzt fast fertig.
Nur noch ein paar Kleinigkeiten
Ich weiß nur nicht, warum der Testdruck so unscharf und undeutlich ist,aber im Prinzip funktionierts.

Delphi-Quellcode:

.
.
.
type
  TForm5 = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Druckvorschau: TImage;
    BitBtn4: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure Vorschau_Texteingabe ;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
.
.
.
procedure TForm5.BitBtn1Click(Sender: TObject);
Var rect:TRect;
begin
Printer.BeginDoc;
with printer.Canvas do begin
rect:=Bounds(0,0,printer.PageWidth,printer.PageHeight);
stretchdraw(Rect,DruckVorschau.Picture.Bitmap);
 end;
printer.enddoc ;

end;

procedure TForm5.FormShow(Sender: TObject);

begin
 Panel1.Width:=Form5.Width;

Druckvorschau.ClientHeight:=594;
Druckvorschau.ClientWidth:=420;
Druckvorschau.Left:=(screen.WorkAreaWidth div 2) -210;
Druckvorschau.Top := 80;
Druckvorschau.Canvas.Font.Size:=6;
Druckvorschau.Canvas.TextOut(20,30,'Testdruck');
Vorschau_Texteingabe ;
end;
procedure TForm5.Vorschau_Texteingabe   ;
begin

Druckvorschau.Canvas.TextOut(20,50,(Form1.Clientdataset1Feld1.asstring));
.
.

end;