Hallo ihr alle,
arbeite gerade an einem Kassenprogramm .
Habe aber da ein Problem mit dem Ausdrucken eines DBGrid´s.
Ich bekomme immer nur einen Datensatz gedruckt.
Habe das auch schon mit " while not Table2. EOF do " versucht nix geht.
Hier mein Drucker Modul
Vielen Dank Egon
//************************************************** ************
Printer.Canvas.Font.Name:='arial'; // Schriftgröße für Quittung
Printer.Canvas.Font.Size:=16;
Printer.Canvas. font.Style:=[fsBold];
Printer.Canvas.TextOut(0,270,'Quittung :'+' '+IntToStr(VQuittung));
Printer.Canvas.Font.Name:='arial';
Printer.Canvas.Font.Size:=16;
Printer.Canvas. font.Style:=[];
Printer.Canvas.Font.Name:='arial'; // Schriftgröße für Datum
Printer.Canvas.Font.Size:=12;
VDatum:=table1.fieldbyname('DATUM').asString ;
Printer.Canvas.TextOut(450,270,'Datum :'+' '+VDatum);
//************************************************** ***************************************
// Schriftgröße für Artikel ... u.s.w
Printer.Canvas.Font.Name:='arial';
Printer.Canvas.Font.Size:=14;
Printer.Canvas.TextOut(10,350,'Nr Artikel Anz. EP. Rab. Ges.');
Printer.Canvas.TextOut(1,355,'____________________ ____________________________________');
Printer.Canvas.TextOut(0,410,IntToStr(xLfn));
Printer.Canvas.TextOut(80,410,VArtikel);
VVerkaufspreis:=table2.fieldbyname('VERKAUFSPREIS' ).asCurrency;
sum := sum +(vverkaufspreis);// * Vmenge);
Format_VKPreis:=format ('%n',[sum]);
Printer.Canvas.TextOut(360,410,Format_VKPreis);
Printer.Canvas.TextOut(80,410,VArtikel);
VMenge:=table2.fieldbyname('MENGE').asInteger;
Printer.Canvas.TextOut(245,410,IntToStr(VMenge));
Printer.Canvas.TextOut(500,410,DBRabatt.Text+''+'% ');
//************************************************** ***************************************
//************************************************** ***************************************
Printer.Canvas.Font.Name:='control'; // Steuercode für Bondrucker und Schublade
Printer.Canvas.Font.Size:=10;
Printer.Canvas.TextOut(0,0,'A');
//************************************************** ***************************************
Comment