设置打印机后台打印数据格式的几个办法

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

先说说为什么要改变打印机后台打印数据格式的原因,这得从打印后台打印数据格式说起,一般SCRIPT打印机后台格式有多种,如RAW、EMF...,但RAW格式是唯一被全部打印机所支持。在远程打印中,只有RAW格式是被WINDOW支持的,这可以在MSDN中查到。另外,如果打印图像,除DIB图像外,部分打印机在采用EMF格式时无法打印,如HP LaserJet 1100。当然,如果采用GDIPLUS技术打印,在400DPI下也是可能正常打印,但当DPI大于400(具体上限没有测试),图像依然无法打印。

接下来,谈谈处理这个问题的几种办法:

不用说,这一种办法当然是打印机控制程序设置。招打,快闪!这个办法阿猫阿狗都会。

第二种办法,我是查了N多的资料才发现的,通过修改注册表中打印机参数,这其实也是这一种办法的变通办法,具体请看http://www2.lszy.net/tm/Article_Print.asp?ArticleID=804

第三种办法,能过调用WINSPOOL设置Printer_Info_2; ,这才是真正的设置打印机。

//取得当前打印机句柄

function TfrmPrint.GetCurrentPrinterHandle: THandle;

var

Device, Driver, Port : array[0..255] of char;

hDeviceMode: THandle;

begin

Printer.GetPrinter(Device, Driver, Port, hDeviceMode);//得到当前打印机名称

if not OpenPrinter(@Device, Result, nil) then //取得打印机句柄

RaiseLastWin32Error;

end;

//初始设置打印机

procedure TfrmPrint.initPrintSet;

var

hPrinter : THandle;

pInfo: PPrinterInfo2;

bytesNeeded: DWORD;

begin

hprinter := GetCurrentPrinterHandle;

try

Winspool.GetPrinter( hPrinter, 2, Nil, 0, @bytesNeeded ); //取得printerInfo2的structure size

pInfo := AllocMem( bytesNeeded ); //分配空间

try

Winspool.GetPrinter( hPrinter, 2, pInfo, bytesNeeded, @bytesNeeded );//取得具体参数组

pInfo.pDatatype :='RAW';//转成RAW格式

SetPrinter(hPrinter,2,pInfo,0);//保存新的参数组

finally

FreeMem( pInfo );

end;

finally

ClosePrinter( hPrinter );

end;

end;

到此,设置完成,不过,我还是有几个疑惑,查MSDN得知printerInfo2.Attributes中的PRINTER_ATTRIBUTE_RAW_ONLY好像也是设置RAW格式,但一直无法使用。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航