builder中如何打印图象(100分)

  • 主题发起人 fenghualiang
  • 开始时间
F

fenghualiang

Unregistered / Unconfirmed
GUEST, unregistred user!
方法多多
 
PageControl->Pages->PaintTo(Printer()->Handle,10,10);
if(i!=Stop)
Printer->NewPage();
if(PrintDialog->Execute())
{
TPrinter *APrinter=Printer();
APrinter->begin
Doc();
APrinter->Canvas->Draw(1,1,Image->Picture->Bitmap);
APrinter->EndDoc();
}
 
接受答案了.
 
顶部