PageControl创建的多页面怎么打印？？

[ly_cong]

在Form1上有PageControl1、PageControl2、PageControl3，每个PageControl上都有画出的图形和用于说明的文字，怎么保存、打印预览、打印？？
请各位高手帮助。
分数不够可专贴给分。

[BlueDeepOcean]

其实不是很难，你可以利用Canvas的CopyRect的方法，将Form上的每个PageControl的区域通过TRect的方式保存下来，并利用CopyRect的方式保存到一个临时动态生成的Bitmap上，保存为文件；
如果打印的话，可以利用TPrinter *p = new TPrinter;的方式进行图片的打印，方法也很简单，就利用p->Canvas->CopyRect()函数将bmp的内容拷贝到打印机上，进行打印；
预览过程就是重画的过程。道理和利用CopyRect的方式拷贝到Bitmap上的方法一致。

[ly_cong]

up

[qvcbui]

创意、自由、灵活，超强的报表功能，
独特的双数据源连接，全功能的表格组件！

http://www.anylib.com

[ln_cong]

up

[ln_cong]

不明白，和一般的打印有什么区别？/

[bgqy2000]

这个要好好学学，呵呵。兰色姐姐能说详细点不，最好给点代码，嘿嘿。

[ln_cong]

up

[ly_cong]

没有人能解决？？

[ly_cong]

up

[BlueDeepOcean]

修改一哈：
Graphics::TBitmap *bmp = new Graphics::TBitmap;
bmp->Width = PageControl1->ClientWidth;
bmp->Height = PageControl1->ClientHeight * PageControl1->PageCount;
for (int pidx = 0;pidx < PageControl1->PageCount;pidx ++)
{
PageControl1->ActivePageIndex = pidx;
bmp->Canvas->CopyRect(Rect(0,
PageControl1->Pages[pidx]->ClientHeight * pidx,
bmp->Width,
PageControl1->Pages[pidx]->ClientHeight * (pidx + 1)),
PageControl1->Canvas,
PageControl1->Pages[pidx]->ClientRect);
}
//bmp->SaveToFile("c:\\PageControl_Pages.bmp"); //测试用

TPrinter *p = new TPrinter;

p->BeginDoc();

p->Canvas->CopyRect(Rect(0,0,p->PageWidth,p->PageHeight),bmp->Canvas,Rect(0,0,bmp->Width,bmp->Height)); //修改了这处

p->EndDoc();

delete p;
p = NULL;
delete bmp;
bmp = NULL;

[ln_cong]

up again

[BlueDeepOcean]

给出

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Graphics::TBitmap *bmp = new Graphics::TBitmap;
bmp->Width = PageControl1->ClientWidth;
bmp->Height = PageControl1->ClientHeight * PageControl1->PageCount;
for (int pidx = 0;pidx < PageControl1->PageCount;pidx ++)
{
PageControl1->ActivePageIndex = pidx;
bmp->Canvas->CopyRect(Rect(0,
PageControl1->Pages[pidx]->ClientHeight * pidx,
bmp->Width,
PageControl1->Pages[pidx]->ClientHeight * (pidx + 1)),
PageControl1->Canvas,
PageControl1->Pages[pidx]->ClientRect);
}
//bmp->SaveToFile("c:\\PageControl_Pages.bmp"); //测试用

TPrinter *p = new TPrinter;

p->BeginDoc();

p->Canvas->CopyRect(Rect(0,0,p->PageWidth,p->PageHeight),bmp->Canvas,Rect(0,0,p->PageWidth,p->PageHeight));

p->EndDoc();

delete p;
p = NULL;
delete bmp;
bmp = NULL;
}
//---------------------------------------------------------------------------

[ly_cong]

up

[BlueDeepOcean]

up？

[ly_cong]

Graphics::TBitmap *bmp = new Graphics::TBitmap;
int Width = mainForm->Width;
int Height =mainForm->Height;
bmp->Canvas->CopyRect(Rect(0,0,Width,Height),
bmp->Canvas,Rect(0,0,Width,Height));
bmp->SaveToFile("d:\\FormPages.bmp");

运行后，保存了一个图像，是0字节，什么也没有
那里错了？？
急也

[BlueDeepOcean]

你把函数用错了~~
Graphics::TBitmap *bmp = new Graphics::TBitmap;
int Width = mainForm->Width;
int Height =mainForm->Height;
bmp->Canvas->CopyRect(Rect(0,0,Width,Height),
Canvas,
Rect(0,0,Width,Height));
bmp->SaveToFile("d:\\FormPages.bmp");

[zerofantasy]

to ly_cong：
你说的问题我刚才也遇到了，你忘了设定bmp->width和bmp->height。

[YJS050320001]

蓝姐说的很详细了 特来学习

[BlueDeepOcean]

寺地。