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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
& u+ }! v& _6 J2 k0 F6 R/ k就马上传了上来。 </P>
. L3 l/ H4 l) H0 {; z7 C: h<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
0 y* Y# T3 E% ?+ p7 ochar *ADevice, *ADriver, *APort;
4 ~/ R8 E* h- W5 L8 {" CTHandle DeviceMode;
PDeviceMode DevMode;
int length,width;
  length=1400;
) I9 l( O3 R0 C  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
, r- v( E6 l+ P; A, M  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
0 B4 f- x( a& q* V  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
9 `4 d5 _+ r0 y' [0 {' ?; E  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
/ f8 `$ s& y+ X4 t<>  //测试打印
/ s3 N- k' H) [1 t  Printer()-&gt;BeginDoc();
; n4 ^, y% l& O" r" R& \  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
7 s1 R8 [0 S( d  Printer()-&gt;NewPage();
: O- n" A3 a, H7 U# @  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
5 Q( Q- S1 W' M$ q* V4 f, a/ g5 p  Printer()-&gt;EndDoc();
} </P>