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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
' v. T7 }; W$ N9 A7 Y所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
5 t1 a! `% H! ~- t# z& W就马上传了上来。 </P>
. }' i6 J2 E4 I<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
- j+ y$ e7 M2 F- S- M: I1 {1 tTHandle DeviceMode;
PDeviceMode DevMode;
int length,width;
; R& w/ ^& `3 s! [3 U  length=1400;
5 O2 W  [+ Q) U$ Z6 q) W& a  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
! f- F% f  E. h# H& R$ X  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
/ ?, @$ v8 ^; M7 r3 }0 p1 p  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
* {8 t. l; G" y) ?% l  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
5 J/ i- [, @" k8 Y3 r; k  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
, V; f9 f# \, C# [, Q. m  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
+ e# b  H% x8 [6 C1 @3 s9 {  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
% V8 F* \  L5 f* I  Printer()-&gt;BeginDoc();
8 z" F+ G: q$ r8 d5 \, f9 o, N! l  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
1 E0 ]( u$ t) k- Z) K  Printer()-&gt;NewPage();
" B/ V( F: L4 {% r3 U/ Q  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
9 ~1 r0 x( E1 t; k5 |5 [3 f5 v} </P>