printer.Canvas 奇怪问题~帮忙的来!!!!!!!!!
procedure TForm1.Button1Click(Sender: TObject);
var
rec:TRect;
begin
// rec:=Rect(Self.Canvas.ClipRect.Right,Self.Canvas.ClipRect.Bottom,Self.Canvas.ClipRect.Left,Self.Canvas.ClipRect.top);
// Self.Canvas.TextOut(22,22,'HHHHHHH@@@@@@@2');
// Self.Canvas.CopyRect(rec,Self.Canvas,Self.Canvas.ClipRect);
Printer.BeginDoc; Printer.;
printer.Canvas.TextOut(22,22,'HHHHHHHH$$$$$@@@@!##@!sfas');
rec:=Rect(printer.Canvas.ClipRect.Right,printer.Canvas.ClipRect.Bottom,printer.Canvas.ClipRect.Left,printer.Canvas.ClipRect.top);
Self.Canvas.CopyRect(rec,printer.Canvas,printer.Canvas.ClipRect);
Printer.EndDoc;
end;
为什么 注释掉的代码能显示我的想法。
而打印printer就不可以呢?是不是它的page大小无法确定?
我的目的是想让它旋转180度打印;别告诉我用什么 logcfont [打错了,反正差不多]字体!我还有图片之类的东西。所以不能用