C++Builder编程中动态更改自定义打印纸张

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
+ {, Q  V, O7 s3 i就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
# s6 O+ M9 k4 H  \+ L$ X. _6 Z. X{
1 t# s( I* i5 Q: h- @$ xchar *ADevice, *ADriver, *APort;
THandle DeviceMode;
1 i  F+ b5 U9 w# tPDeviceMode DevMode;
int length,width;
  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
" L/ O, P! O( {+ M& f  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
  //获取打印机
0 R- ]. W" L: f# m0 D! y. r: l  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
, H& X. b: d+ |4 S( U: J  //设定可以修改的值
& t4 t& f2 W7 i( H, Y6 d  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
) V% h# k6 R, G9 {$ ]0 U  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
: Z: ^) |' |  C4 f4 c  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
$ S$ ]% L4 d) E. Y5 A. K7 F2 d  Printer()-&gt;BeginDoc();
( L' n/ g! q2 B) G+ \' M" J; b  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
2 e. g3 q2 e9 `  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
} </P>