用API函数实际图片或文档的打印怎么写的？
打印各种图片啊，文档什么的 问题点数：40、回复次数：4Top
1 楼Raptor（猛禽）回复于 2005-04-04 15:35:59 得分 5
1Top
2 楼constantine（飘遥的安吉儿）回复于 2005-04-04 16:30:11 得分 30
#include <Printers.hpp>
Graphics::TBitmap *pBitmap = new Graphics::TBitmap();
TImage *image = new TImage(this);
try
{
image->AutoSize = true;
image->Picture->LoadFromFile("your_file");
pBitmap->Assign(image->Picture);
int border = 100; //pixels
int width,height;
TPrinter *Prntr = Printer();
TRect rect = Rect(border,border,Prntr->PageWidth - border,Prntr->PageHeight - border);
Prntr->BeginDoc();
for (int x=0; x<image->Picture->Width; x += rect.Width())
{
for (int y=0; y<image->Picture->Height; y += rect.Height())
{
width = (x + rect.Width()<image->Picture->Width) ? rect.Width() : image->Picture->Width - x;
height = (y + rect.Height()<image->Picture->Height) ? rect.Height() : image->Picture->Height - y;
BitBlt(Prntr->Canvas->Handle,rect.Left,rect.Top,width,height,pBitmap->Canvas->Handle,x,y,SRCCOPY);
Prntr->NewPage();
}
}
Prntr->EndDoc();
}
catch(...)
{
ShowMessage("Cann't load image file");
}
delete pBitmap;
delete image;
帮你搜的Top
3 楼NetSpider9804040（网络蛛蛛）回复于 2005-04-04 17:45:54 得分 5
学习！Top
4 楼tompkins2000（AirHunter）回复于 2005-04-05 09:37:15 得分 0
多谢楼上各位～～
最好是用API。我想看看API打印是怎么做的～～上面的代码也不错～～收藏ing
Top
