Как распечатать decision grid?

Как распечатать decision grid?

procedure TForm1.Button2Click(Sender: TObject);
begin
 Printer.BeginDoc;
 try
  printer.canvas.moveto(100,100);
  SetMapMode( printer.canvas.handle, MM_ANISOTROPIC );
  SetWindowExtEx(printer.canvas.handle,
  GetDeviceCaps(canvas.handle, LOGPIXELSX),
  GetDeviceCaps(canvas.handle, LOGPIXELSY),
  Nil);
  SetViewportExtEx(printer.canvas.handle,
  GetDeviceCaps(printer.canvas.handle,
LOGPIXELSX),
  GetDeviceCaps(printer.canvas.handle,
LOGPIXELSY),
  Nil);
  grid.PaintTo( printer.canvas.handle, 100, 100 );
 finally
  printer.enddoc;
 end;
end;

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...