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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
7 A  _/ u  _3 A就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
& {) z3 m* @/ _  e6 y  ]{
char *ADevice, *ADriver, *APort;
( H' ?2 z! z7 n3 Q/ p  dTHandle DeviceMode;
* x) y2 |4 t. M' u2 T! N9 r7 ~; sPDeviceMode DevMode;
+ N7 P; ~5 o6 P( [4 iint length,width;
. L2 o; m+ e5 \1 V2 Z4 h) W) u  length=1400;
, a+ n! ]& S$ K& k# J  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  N. b& q$ ]: c! l, z! B  ADevice =new char[100];
& ?+ S1 x6 S# ^3 [9 d2 m  ADriver =new char[100];
  j& j# @, i& x$ j7 t8 E' [  APort =new char[100];
  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
. d) r; k  x# _- X2 r5 P# J  R  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
0 f! C1 V( R3 h  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
, U# Y( b: L2 }5 V5 {  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
- e1 Q3 K, U5 x3 p/ S0 e  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
' y; K4 I/ `4 Z+ [, Y8 @5 J# B  //设定要修改的值
& z' p! r( z8 i: d  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
, [# k9 [8 Y3 }& F6 s  DevMode-&gt;dmPaperLength=length;
; k1 Q6 R: W* ]2 Q* G3 D  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  `" \: a& t. L# ^$ e& o& c  Printer()-&gt;NewPage();
* X9 J+ o0 x- Z4 k5 _1 ]8 z, `  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
: G" f8 C2 w+ K" S! Z  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
} </P>