Блог программистов

например, Grid / DbGrid (далее Matrix) нужно заполнить значениями из Table..
затем :

with Printer do

begin

if Printing then exit;

PrinterIndex:= -1;

BeginDoc;

Onprint:= true;

Matrix.Color:= clWhite; // экономим чернила

Matrix.Repaint;

zoom:= PageWidth / (2*Matrix.Width);

zoom2:= PageHeight / (2*Matrix.Height);

if zoom2 на полстраницы

with canvas do

begin

Font.Size:= 14;

Font.Name:= 'Courier New';

TextOut((PageWidth-Textwidth(str)) div 2, 12, str);

StretchBlt(Handle, (PageWidth - wdt) div 2, 25+TextHeight(str), Wdt, Hgt,

Matrix.Canvas.handle, 0, 0, Matrix.Width, Matrix.Height-5, SrcCopy);

end;

EndDoc;

Onprint:= false;

Matrix.Color:= $00AABBCC;

Matrix.Repaint;

if aborted then MessageDlg('Печать была прервана!', mtInformation, [mbOK],0);

end;