604
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TForm1::Print1Click(TObject *Sender)
{
if(PrintDialog1->Execute())
{
Button1->Hide(); //隐藏不想见的按钮
Button2->Hide();
Button3->Hide();
Button4->Hide();
Button5->Hide();
Form1->Color = clWhite;
Form1->Print();
TPrinter *Prntr = Printer(); //创建打印机
TRect r = Rect(200,200,Prntr->PageWidth-200,Prntr->PageHeight-200);
Prntr->Copies = PrintDialog1->Copies;
Prntr->BeginDoc(); //开始打印
Prntr->Canvas->Handle; //此处打印的一页,如何打印所有??
Prntr->EndDoc();
}
}