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

韩冰

<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用，
7 T' Y; ?1 J* m所以一生气就索性查了查资料自己写了，怕网友们在用编程时也遇见此类情况，
$ m0 c# f& H8 t# x; u就马上传了上来。 </P>
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
: u( X2 ?7 C8 x. x6 V% t{
char *ADevice, *ADriver, *APort;
; e2 L" t' I" K0 }9 |% N4 z+ V+ TTHandle DeviceMode;
! m' ]" T: h/ S" D8 E8 I& _PDeviceMode DevMode;
+ r0 A' U4 M" U  H1 cint length,width;
  length=1400;
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米
9 R% S% }& l" n: F  ADevice =new char[100];
  ADriver =new char[100];
, `5 ]3 G# J6 T- ~0 C  APort =new char[100];
  //获取打印机
. }: l4 P, e% o  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
" I/ G# I, c2 G- Y  //获取PDevMode结构
  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
9 [( x$ o. |( N) V9 D  //设定可以修改的值
- J/ m5 v& p9 \, h  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE;
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH;
  X4 b, C+ @8 V; ]  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH;
  //设定要修改的值
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张
  DevMode-&gt;dmPaperLength=length;
  DevMode-&gt;dmPaperWidth=width; </P>
4 P; A* ^4 t6 x9 D; g, c<>  //测试打印
# w/ J" T# i" V& r# b% }  Printer()-&gt;BeginDoc();
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17);
% J# S1 l) y5 n2 I# M$ K9 X  Printer()-&gt;NewPage();
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18);
  Printer()-&gt;NewPage();
  Printer()-&gt;EndDoc();
* c" n6 @$ I! y8 U5 {} </P>