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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
, h4 J# ~3 t! J% {, N6 u1 V; h1 k/ H就马上传了上来。 </P>
% n9 v. H' m- X5 `- |. L( _- ~<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
( r; \2 J  H) R{
/ H% C7 [) W* f8 R* D1 o8 Jchar *ADevice, *ADriver, *APort;
THandle DeviceMode;
PDeviceMode DevMode;
int length,width;
  length=1400;
/ [3 e: d! `( d) Y( f  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
% G2 ?. w& z( k! U" F: k2 l- f  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
) l, n, q, Z8 i9 X% f" j  //设定可以修改的值
+ x3 @, t1 g- Q2 t7 e  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
% L5 l/ l( R, N2 [7 J0 E& Z# C5 I7 \  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
. C/ i2 I7 R/ F0 H  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
% I5 G' g0 Q6 U6 D+ ]  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
5 _0 J2 r# ~, s3 H2 i: X  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
" d9 l- Y+ w9 G% W8 Z$ ^<>  //测试打印
  Printer()-&gt;BeginDoc();
. t7 L2 B* T6 g1 P9 H9 T* x& d  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
$ o2 m4 X# J; f; ~) v  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
. z5 U9 q+ ^8 Q# V# ~' o1 \  Printer()-&gt;NewPage();
! M: [1 A# a+ z% p9 m  Printer()-&gt;EndDoc();
} </P>