procedure TForm1.Button1Click(Sender: TObject);
begin
DBChart1.CopyToClipboardBitmap;
if Clipboard.HasFormat(CF_BITMAP) then
begin
Image1.Picture.Bitmap.Assign(Clipboard);
Image2.Picture.Bitmap.Assign(Clipboard);
end;
if printdialog1.execute then
begin
with printerdo
begin
begin
Doc;
canvas.draw(0, 0, Image1.Picture.Graphic);
canvas.draw(0, Image1.Height + 10, Image2.Picture.Graphic);
EndDoc;
end;
end;
end;
