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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
: D+ N/ G7 a; D7 b1 K<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
0 C. H0 ]0 z. Q, ~' `. L0 b0 {: N{
+ k% i; ~3 g/ W' j5 s# Kchar *ADevice, *ADriver, *APort;
$ S  ~6 V- h9 U5 hTHandle DeviceMode;
+ t! y" p2 E8 I% b. TPDeviceMode DevMode;
int length,width;
* H8 x* d5 ^" V5 p( ~& {5 Q  length=1400;
9 i( C1 S9 y& c, Y1 h) v+ ]  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
! A; t# I" m/ t  ADriver =new char[100];
6 R6 a% n3 E$ u, e$ K. Z  APort =new char[100];
  //获取打印机
# I$ X- G" q% ^# S8 y% e0 H  x) d  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
$ v% T/ M7 r/ Q# v" k, A. @- X  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
7 k% G/ ^! m. C* h. c. O& ^  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
% y2 r4 l; {- [" N  DevMode-&gt;dmPaperLength=length;
2 Z/ p- ?$ h- d7 M0 O/ ]  DevMode-&gt;dmPaperWidth=width; </P>
: D, V* l& w& M<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
1 E, l9 p9 Y* ~, ]0 Q+ L) k+ z  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
+ z6 t7 R) y1 X) J0 C* E  Printer()-&gt;EndDoc();
# p# C( |9 F9 [, ~} </P>