Печать StringGrid

[Gorin]

Добрый вечер!
Пытаюсь напечатать StringGrid

Printer.BeginDoc;
StringGrid1.PaintTo(Printer.Handle,10,10);
Printer.EndDoc;

Таблица получается на 1\20 листа.
С чем это связанно?

[Shuraken]

С разницей между разрешением принтера и разрешением экрана. Необходимо масштабировать размеры печатаемой области.

[Alar]

Статья в блоге по теме - печать содержимого компонента

например, 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;

[SERG1980]

Юэай Fastreport и ни каких проблем

[Gorin]

Честно сказать, я вообще не понимаю что происходит в приведённом коде Если возможно, хотелось получить комментарий. Спасибо!


У меня много цветных ячеек, разный шрифт. Поэтому с FastReport у меня проблемы