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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
THandle DeviceMode;
PDeviceMode DevMode;
+ t* x1 G6 w4 e" [+ Uint length,width;
$ _9 b- H( g1 ^: G2 L+ \  length=1400;
7 N- D4 ^7 F1 G) |6 k& ]; }  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
, w' J. i+ X; t$ M# `% p' Z' P4 H' Y  //获取打印机
) @/ C% s0 `- N+ V6 Z  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
0 R0 x: A/ n8 r, s% j  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
' w$ J( I, v& I8 f  //设定可以修改的值
/ Y1 u! m7 x- L& E, g8 k( q) j9 O* |  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
0 ~$ ?+ d( J  ~. ?$ u  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
0 e" {4 t2 o1 I/ j1 U  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
1 p, r# V& n, S  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
& Q# c+ X7 f( W  _* M  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
4 O$ z( X& U3 |  C$ H0 Y0 e) [4 b  l. \  Printer()-&gt;BeginDoc();
1 v& v3 C% _, N  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
( Q% k' d3 @% t1 ^: f" Z% L  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
} </P>