Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2351552
  • 博文数量: 816
  • 博客积分: 10000
  • 博客等级: 上将
  • 技术积分: 5010
  • 用 户 组: 普通用户
  • 注册时间: 2008-12-17 17:57
文章分类

全部博文(816)

文章存档

2011年(1)

2008年(815)

分类:

2008-12-17 18:03:47

Printer, Canvas, PageWidth, PageHeight example

This example uses a button and a memo on a form. When the user clicks

the button, the content of the memo is printed, with a 200-pixel border

around the page. To run this example successfully, include

in your unit file.

void __fastcall TForm1::Button1Click(TObject *Sender)

{
  TPrinter Prntr = Printer();
  TRect r = Rect(200,200,Prntr->PageWidth-200,Prntr->PageHeight-200);
  Prntr->BeginDoc();
  Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
  Prntr->EndDoc();
}


以上是BC中自带的打印列子程序, 但是调试没有办法通过。

我以为第一句应该是  TPrinter *Prntr = Printer();
这样调试就可以通过了,不知道是不是BC真的写错了还是我没有理解请指教谢谢

--------------------next---------------------

阅读(952) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~