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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
, h0 r1 E5 |; q' p! D* @2 v1 ?所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
  k8 H0 m" v$ b- p{
/ [2 c1 x- e: c7 ?4 X% Xchar *ADevice, *ADriver, *APort;
: M% V% B9 Y% C, jTHandle DeviceMode;
, x; H; k6 ]  F+ Y7 WPDeviceMode DevMode;
int length,width;
% W/ [# W0 [. l% ^; K  length=1400;
7 U% i" ~& ~# U: j+ B% X3 i8 n* L5 W  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
9 o+ n! J4 r5 f0 M  ADevice =new char[100];
& B* @' }, @4 l  ~/ {. Z1 Q6 P$ J  ADriver =new char[100];
5 Y4 |  _4 l. x" {3 y6 n  c  APort =new char[100];
. S) D; K5 d2 u  //获取打印机
) ^  R0 r& A' T4 Z  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
# |; p5 ?9 ]- H. r5 h; A  //获取PDevMode结构
( S# v7 J0 b0 U3 K2 ]4 y  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
4 Q( |' v: t) ~3 X5 S7 Q7 {+ w/ J  //设定可以修改的值
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
" d6 l) b. [2 P# z  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
+ q5 r5 O( x* E" Y" l( U6 |! S  //设定要修改的值
- @1 ?2 Q- n# ~  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
+ B1 Q: v2 l: p' M- R" Z  DevMode-&gt;dmPaperLength=length;
, y* [$ a5 q8 v6 b4 d* ?  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
6 F* X6 B6 i5 h& }# @" b  Printer()-&gt;BeginDoc();
9 A: L) j' f! R0 V, F# y  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
7 v! f; @. i* ?+ D( d2 `: K- T& I, L; p  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
" ]7 _' v% O" U0 H6 ?# m# {  o  Printer()-&gt;NewPage();
5 F; t0 T% y! I8 Q- g+ K  Printer()-&gt;EndDoc();
} </P>