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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
; @2 b; a: T) S  T/ @; w+ A所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
( s. \/ f+ x- b( P- E0 C: J& e, S{
: S+ m/ w1 E6 P! Qchar *ADevice, *ADriver, *APort;
7 t- J# Q1 Y$ Y9 qTHandle DeviceMode;
PDeviceMode DevMode;
6 m; Q. _% ?- k# p4 Nint length,width;
0 G7 \6 Z; S+ n  t. @0 }4 J  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
* n% h; T7 }  `9 \7 s1 U  //获取打印机
/ @+ ?) O7 z; Q8 r3 O  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  D) n' x) j& c( V& P  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
3 m( s" S' k7 B% o# ^2 S. o& }0 S  //设定可以修改的值
: b0 l' |+ I& V8 }# t  v- V  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
4 O+ V3 ]) x! {/ _  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
8 d) J4 s3 {$ A, a- K. n% N  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
4 r( ?) W4 w  N( D5 m: @  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
( v0 K* o2 f( D  z' X: @5 ]* c<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
2 F* X& Q# P. U* a7 g$ [) h  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
$ J2 v+ ~9 {, Y2 N# @) Y8 F  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
6 U- i) i% z3 r+ n# s; P} </P>