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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
% Z3 T3 Y9 q0 r<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
: a0 O6 C* X- m0 K4 Y/ g{
char *ADevice, *ADriver, *APort;
THandle DeviceMode;
3 e; ^8 K; E, V2 L- k' Z/ D9 N# [; [+ n& SPDeviceMode DevMode;
int length,width;
  length=1400;
, d  ?$ v" R5 Z" ^7 i. j  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
& T$ v3 {9 I5 o9 H7 s* k- J* Z  ADevice =new char[100];
  ADriver =new char[100];
, t( E5 A3 k; q% v  APort =new char[100];
2 d3 D  X. {' {8 b# ]$ U  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
% a- F- g; t& @* k" c1 [  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
" v, J( Z. K& z1 h/ m( X& E  t4 o  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
2 I. r, O6 _1 X: g% d  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
; H9 M4 }1 i3 D! d2 k  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
4 X7 q" L5 v* }  Printer()-&gt;BeginDoc();
0 W5 r* L2 X, `: K9 v  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
! S+ k2 i. O" j$ v1 o  p! h' V  Printer()-&gt;NewPage();
4 v& w2 ]) H0 q2 k/ S) E' A1 F  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
( t9 q3 l: A  T7 p9 _  Printer()-&gt;NewPage();
* U& f) a/ R2 s7 D! \3 J  Printer()-&gt;EndDoc();
" ~% Y* H, e! b2 I, \! v2 U# o( Q} </P>