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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
: Z& h$ t! s5 i3 Q* E" v2 J) ]<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
2 M: `1 _; N0 J# J- u{
+ ]$ R' G- ^" Z8 gchar *ADevice, *ADriver, *APort;
7 f2 k# a) s. M5 U8 ^9 ?THandle DeviceMode;
PDeviceMode DevMode;
int length,width;
  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
) N5 R0 X3 E1 B$ K- I) C# }! p  ADevice =new char[100];
  ADriver =new char[100];
% f. o9 I3 v6 Q8 x5 W4 k; q, n# j  APort =new char[100];
% l* o( u2 L; l* {( b+ s  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
  b( O2 A1 s- i7 a- i- U0 d0 W! ]. h  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
4 ~6 P' g% U) ], ?! `% `6 ]. \  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
( y* \1 X6 B( e6 p( Q- C  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
8 `9 b! {# ^& I% _) U3 i<>  //测试打印
  Printer()-&gt;BeginDoc();
4 f1 P  J1 s! M1 j9 r  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
+ T" s) I% j+ O, o1 P) G  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
* Q) t1 X5 D' E" d( L  Printer()-&gt;NewPage();
/ O) s( J7 @% T1 E0 f9 b8 k2 H) W5 q" S  Printer()-&gt;EndDoc();
} </P>