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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
& b# H- G: w/ u& i! \3 a所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
  T( e. y  N6 g( E% _" A: M# Y" U3 V{
/ U4 r1 L5 \8 b# ^% ]9 i+ jchar *ADevice, *ADriver, *APort;
4 ]9 {1 \  W8 T% E7 LTHandle DeviceMode;
0 F: V& c( Y& uPDeviceMode DevMode;
* T5 S( k/ Q: Y* P* v* Pint length,width;
  length=1400;
" C; _7 s  l" j! O$ x  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
! c- ?& D5 ~/ C  ADriver =new char[100];
  APort =new char[100];
  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
) z8 ^* R' p# E! I- q# V( ]* L  d; P# d  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
1 k- L$ y( ^: K* m  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  y5 v6 I1 e; }: z5 f& p% I3 V  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
& v  {, h5 Q2 j3 p  b6 y# E  Printer()-&gt;EndDoc();
} </P>