在delphi中如何打印一个图片文件，比如pic.jpg;

[yangfan369]

在delphi中如何打印一个图片文件，比如pic.jpg;

[很土]

使用 TPrinter 对象的 Canvas, 把 pic.jpg 画到 Canvas 上即可.

// 开始打印
Printer.BeginDoc;

// 画 pic.jpg 到 Printer.Canvas 上
// ... ...

// 结束打印
Printer.EndDoc;

[Behard]

看看我写的 BCB 代码
void PrintImage(LPCSTR fielname)
{
TPrinter *prnRep = Printer();

int ipixelPerInchX=GetDeviceCaps(prnRep->Handle,LOGPIXELSX);
int ipixelPerInchY=GetDeviceCaps(prnRep->Handle,LOGPIXELSX);
int ipixelPerCmX=(int)(ipixelPerInchX / 2.54); // 1 英寸为 2.54 cm
int iPixelPerCmY=(int)(ipixelPerInchY / 2.54);

int BaseLeftY = iPixelPerCmY*2; // 自己处理上下预留高度
int BaseLeftX = ipixelPerCmX*2; // 自己处理左右预留宽度

prnRep->BeginDoc() ;

if(FileExists(fielname))
{
// 为什么要两句才能运行正常?
TImage *prnmage = new TImage ( NULL );
prnmage->Picture->LoadFromFile(fielname);
TRect drawRect;
drawRect.Left = BaseLeftX;
drawRect.Top = BaseLeftY;
drawRect.Right = BaseLeftX+ ipixelPerCmX*10; // 自己处理实际高度
drawRect.Bottom = BaseLeftY+ iPixelPerCmY*10; // 自己处理实际宽度
prnRep->Canvas->StretchDraw ( drawRect, prnmage->Picture->Bitmap );
prnRep->Canvas->StretchDraw ( drawRect, prnmage->Picture->Graphic );
delete prnmage;
}
Prntr->EndDoc();
}