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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
! b% }9 u$ o# e4 b所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
就马上传了上来。 </P>
+ m; S# ]: y- \8 D0 G5 Z<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
8 V0 ~7 S( ]3 m! [% n$ p( \% I2 m{
char *ADevice, *ADriver, *APort;
! M7 [1 p/ Q7 H- g% O  W3 [THandle DeviceMode;
0 I. }* o, H% ^1 J3 g1 rPDeviceMode DevMode;
) h# n* ~# G5 [8 h4 I# Z& ^3 Mint length,width;
  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
  ADevice =new char[100];
) Q' T$ t' q2 i  ADriver =new char[100];
/ @$ o% t4 x, l1 B  g  L4 V: L  J  APort =new char[100];
' A0 b3 m+ q' P* S% |6 F  //获取打印机
/ }4 [) Q0 U* S( p. u- u  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
2 t. {/ ^# G) D% l/ j" {9 D. o  //获取PDevMode结构
/ [" m' a1 V0 ]8 P5 y  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
6 d& M3 p. _6 [- `" H  //设定可以修改的值
: P# N4 e3 F. D5 \( _5 Z( {+ ]  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
+ G9 {$ a3 i1 K/ ^% k8 l  DevMode-&gt;dmPaperLength=length;
" O+ {8 l! [) B8 b! l7 |0 W  DevMode-&gt;dmPaperWidth=width; </P>
7 b- E- P% r- u0 y4 Z<>  //测试打印
, |7 W1 u# ^, k/ L( S( m2 l& [! c  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
4 [- v" e: O3 I* u" L( j0 a  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
/ d, `# I2 U& t6 ^7 W  Printer()-&gt;NewPage();
# B  M* L- o4 l9 ?  l  Printer()-&gt;EndDoc();
} </P>