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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
5 \- m, ]8 q" E所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
& }& ^: Q8 Y# l就马上传了上来。 </P>
* ~5 `: k# O+ p<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
char *ADevice, *ADriver, *APort;
& a* I7 o. }# u; M7 XTHandle DeviceMode;
PDeviceMode DevMode;
int length,width;
  length=1400;
) X! U% y$ o' W) `8 ]4 w  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
9 h% a8 C- I5 j8 W  ADevice =new char[100];
  ADriver =new char[100];
  APort =new char[100];
  //获取打印机
  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  //获取PDevMode结构
# ]" u& _5 M: V" _: V) A  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
! d% d' q' E6 T3 f- B/ G& {' V  //设定可以修改的值
( ~, c* g7 @2 @% i# N# p. ]! m  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
4 x6 i  M* F% g, E  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  K! y& v$ m1 S  J: s/ }  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
4 z, O2 V0 @* E5 n. M8 R  DevMode-&gt;dmPaperLength=length;
$ B7 e# L6 N2 U6 K3 Q  DevMode-&gt;dmPaperWidth=width; </P>
<>  //测试打印
  Printer()-&gt;BeginDoc();
9 i6 ?0 z0 r0 O: }  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
  Printer()-&gt;NewPage();
9 s! j5 l. c; B( P$ r  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
7 v8 H$ h! Z* c) c# ?. }  Z  d/ y} </P>