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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
  L( T3 H) O9 Z就马上传了上来。 </P>
  r8 E) b% x7 ^; ~<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
) E- u4 C. H& A7 L, m) Z{
char *ADevice, *ADriver, *APort;
: b5 f$ t9 G0 S# n3 P& PTHandle DeviceMode;
3 t/ y( x& o9 ^2 x2 sPDeviceMode DevMode;
" x3 x# A: r! `; w6 Iint length,width;
! p& K8 w: {! X# u7 x  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
2 D6 R/ y5 J# |* L( E8 \  ADriver =new char[100];
  APort =new char[100];
- T! m+ y" p$ S* p1 ?3 O  //获取打印机
: h6 x7 d3 g/ r9 a. l  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
; g4 y- ]: j. u% s! @0 k% i  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
# I( i. F% r; c3 Z  //设定可以修改的值
1 W8 Z6 R, k. j' T) {  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
# q1 {% a5 f$ x! o2 V  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
) R1 _2 S% @. g! S/ l( ?  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
9 x" C5 b! T1 L- E) ~' E  //设定要修改的值
! w- o3 ~9 ^# V( U$ t  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
8 U' V( q1 H; q+ t3 m# t# m5 R  DevMode-&gt;dmPaperWidth=width; </P>
! S  |/ ~3 t8 i3 [4 N<>  //测试打印
  Printer()-&gt;BeginDoc();
( i7 f8 B8 N) g9 H  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
% A) g$ u3 G# V9 L) Q/ q  Printer()-&gt;NewPage();
1 y7 H! f' g4 j- t0 c) Y# z  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
. U" K# ~% \+ Z3 i2 j1 ^' E. F  Printer()-&gt;EndDoc();
' k1 L7 V; d: d$ m2 I: ^( o- l} </P>