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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
& M# |2 B4 I4 h1 k4 |; p. Y<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
5 I5 ^4 K5 S, [, J2 [8 J  X5 D7 A{
, D1 u, J( j+ c" S8 Z! Q" g( ?char *ADevice, *ADriver, *APort;
1 W$ v2 [2 t% [THandle DeviceMode;
PDeviceMode DevMode;
  x% z. m- B" y# `! z: h5 Nint length,width;
' i2 i/ f% O2 Z* q  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  N" b) ~+ t1 q1 _( o% A4 t( V  ADevice =new char[100];
6 K6 O) z3 H' }8 O9 m8 S' J6 g  ADriver =new char[100];
  APort =new char[100];
6 [4 k" M4 z" j  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
6 I! ^. {8 R4 C) R  N9 a# ]  //设定可以修改的值
8 a& S, r6 s0 r( S  z  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
. j* N/ S2 J( f' y! v1 E# J  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
2 c: B4 k0 [! N- `  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
4 ~7 v& o$ j- m7 d2 E* z  DevMode-&gt;dmPaperWidth=width; </P>
9 \8 o. o$ m) u# j<>  //测试打印
( D3 O; o5 w& W; p* i  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
, X  e$ X' ]" S$ i0 L$ D9 T/ H  Printer()-&gt;NewPage();
8 I7 j3 s+ \# R' N  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
8 w' q. W/ K3 M3 r# G5 C  Printer()-&gt;NewPage();
$ M  v: f7 ^! v/ K  Printer()-&gt;EndDoc();
} </P>