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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
) {& _# A# c. `& `" w所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
5 |1 _) V; s8 F, Z9 \% S3 L就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
- O$ S% f' m! m2 }; N" Ichar *ADevice, *ADriver, *APort;
THandle DeviceMode;
$ P# A" N0 @7 \' v- QPDeviceMode DevMode;
" |- c9 n  ^$ D0 W' ?6 Dint length,width;
  length=1400;
% m, x/ Y) N7 L" u8 e( X$ y, W  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
3 K  g/ {9 g. I9 r% Z/ G  ADevice =new char[100];
  ADriver =new char[100];
5 {5 Z( T1 l8 L% [" o  APort =new char[100];
0 _! d# \* E; E; W' l! T! o  //获取打印机
$ |  W% ~4 {) K5 f# D1 w9 K# ~7 A$ W" h  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
" w& W1 ~- F) ~7 N# P  //获取PDevMode结构
. z' M3 v$ H- P/ w3 {; X' S  k  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
  //设定可以修改的值
# x2 ~+ ^1 \( v% o9 Y% _  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
( m. {& j: @* {  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
7 h$ F1 J  f7 r: K  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
' b4 J; g* g3 z2 d( C5 s  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
5 L  t2 S7 A$ S6 S  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
0 u4 _6 S) y4 w( T  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
6 M* V" V* @9 g8 a  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
5 V, s  y0 ^# J. ^) ]9 s} </P>