实际上Form.Print 是打印了一张FormImage: TBitMap
而这个FormImage这是通过Print函数中调用了一个
GetFormImage()获取了formimage到Clipboard中,并且打印出来得,所以很简单
就是这样。
你也可以获取到这个图象进行预览,而不是直接打印
procedure TForm1.ShowFormImage(FormImage: TBitMap);
var
FormImage: TBitMap;
begin
FormImage := Form1.GetFormImage();
Image1.Picture.Assign(FormImage);
//或者使用其他处理,进行预览等。。。。。
FormImage.Free;
end;
要直接打印 : 就是使用 Form1.Print();如果要保存则使用上述保存图片再打印