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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
1 p6 v- h+ k. |& D5 Y; X: h{
char *ADevice, *ADriver, *APort;
% S2 O# Y, ?) f0 m$ [THandle DeviceMode;
+ {/ ^0 X5 v3 s4 \0 w) ePDeviceMode DevMode;
, ~) f/ {# C! h' c) Bint length,width;
! ^) z0 K* R$ r3 L9 y" B" Z  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
& C6 H/ z3 I( b  ADriver =new char[100];
  APort =new char[100];
7 _1 ^* Z3 A7 T$ E/ o  //获取打印机
" u* s% P* X5 k# j6 Y7 K  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
+ u; ^5 `! X+ R( [# l  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
8 W$ H( W# M$ V' Z  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
5 f* K7 x% W9 i! X0 {1 n  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
3 }" p& H1 R. \% j7 t/ G, S7 Z  Printer()-&gt;BeginDoc();
6 H& J+ Y) M8 C. Q: D' K) @  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
2 _! g( }4 M) l+ G' g2 i  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
1 ~2 H+ s% s4 D} </P>