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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
& s6 J! M9 {7 \# O( l( Y所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
; p- k. G0 L" ~; c就马上传了上来。 </P>
3 p2 n: H; V1 ~1 E. ^<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
6 o* N! W6 M0 |: m- {4 v$ [8 o* p{
char *ADevice, *ADriver, *APort;
7 K8 X6 t8 K' STHandle DeviceMode;
: j$ s0 v1 v& ^/ b5 _9 U9 vPDeviceMode DevMode;
0 f9 H2 P" @  p/ [/ B* v' ^& h6 Zint length,width;
) f, ?0 I/ N3 o: [2 A6 m) H  length=1400;
+ S4 l/ m8 b1 Y7 o, W+ g! I5 x  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
: I* t, z: ?+ K, U  ADevice =new char[100];
2 a$ J. k4 B6 K  ADriver =new char[100];
6 j, o/ ^. Y; K1 l' j  y# j  APort =new char[100];
  //获取打印机
9 B) g( h& v& s' a/ W  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
; m3 N8 n* }/ W) ?7 P6 l3 ~+ w# j& D  //获取PDevMode结构
3 S& c8 K& o& w  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
' Y; N. i  ?+ c" Z; C$ k. _% h  //设定可以修改的值
5 Y2 F3 g% V9 y* k& L  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
1 u6 w! M- ]8 S: z. h. L  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
: h7 E/ z" R$ ^6 d  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
9 z0 g9 h0 ~! c# R! S  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
- ~) T0 l- h. U( T6 v  DevMode-&gt;dmPaperLength=length;
8 D& k! v3 ~+ h) a# W  DevMode-&gt;dmPaperWidth=width; </P>
5 m3 q5 G$ D3 u0 d3 F/ C/ `<>  //测试打印
& {7 g, \& f* |3 j) |- @6 `" o  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
$ t4 z/ [/ x9 ]0 W* W- f  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
* Q  N" x% g% U1 ^/ m  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
* |6 f1 `+ Z( d} </P>