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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
% O1 a/ g' }& ~) C* q/ @6 h4 s所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
( u) e7 R( [1 F0 \" ~就马上传了上来。 </P>
4 u1 V3 D, L' Y- J. a7 B6 p2 D<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
$ I0 [7 J& t* U+ GTHandle DeviceMode;
) V, y6 t7 X5 xPDeviceMode DevMode;
int length,width;
  length=1400;
. t! v: K" o5 n  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
# w% U+ n& ~+ g: g  APort =new char[100];
$ l4 V: L: m- k: `' N# b  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
3 F& Q0 p3 B) G& p  //获取PDevMode结构
; Q% n" R4 o0 d' g, u( i3 L  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
* V, j; t7 H. G/ s  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
1 s% E! ~3 x3 Q" B$ D- [! }  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
3 f7 R$ s% N: B! D1 ~1 D  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
: `( \( k/ b2 \6 d3 u2 k  j  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
0 l1 j" A8 b9 R; g  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
} </P>