printer.Canvas 奇怪问题~帮忙的来!!!!!!!!!

hangzhou_hammer 2007-10-31 04:42:00
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 [打错了,反正差不多]字体!我还有图片之类的东西。所以不能用
...全文
95 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
hangzhou_hammer 2007-11-01
  • 打赏
  • 举报
回复
ni mama~2\3tian le dou mei ren dou qu chi shi le a
hangzhou_hammer 2007-11-01
  • 打赏
  • 举报
回复
CSDNshang d zhu kuai dian lai a
hangzhou_hammer 2007-11-01
  • 打赏
  • 举报
回复
原来也都不会啊?还是太简单了……
hangzhou_hammer 2007-10-31
  • 打赏
  • 举报
回复
我在等你啊!!!!!!!!!!!!!

5,390

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧