QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 14144|回复: 0
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
韩冰        

823

主题

3

听众

4048

积分

我的地盘我做主

该用户从未签到

发帖功臣 元老勋章

跳转到指定楼层
1#
发表于 2005-1-26 12:24 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
<>因网上只有Delphi例子本人在用CB编写时发现有一些例子不能用,
+ L! [) Z" P% T) |所以一生气就索性查了查资料自己写了,怕网友们在用编程时也遇见此类情况,
6 I& E5 z/ x# z+ _8 n就马上传了上来。 </P>9 w3 v% Q6 S! M0 v5 J0 n2 d8 E. e
<>void __fastcall TForm1::BitBtn1Click(TObject *Sender)
# w# Q' m1 N1 R3 ^9 J4 G{
2 O  P: @5 b; \& f& v9 M4 I' \char *ADevice, *ADriver, *APort; ! V4 a5 O. V5 N( y; z3 u
THandle DeviceMode; / ^# U" t2 M& g6 E* ~
PDeviceMode DevMode; 7 D8 ?0 g8 N& h- m
int length,width;
5 Q+ ?) S# q2 J. o  length=1400; 2 L& w/ V$ ^. v! u
  width=2410;//设定自定义纸张的尺寸单位为0.1毫米 : d+ y* Z# G, ?
  ADevice =new char[100]; 9 Q' T$ F1 g& P- {3 b' d
  ADriver =new char[100]; & C% J7 P: C' w$ V
  APort =new char[100]; ( }5 d1 ^, r5 N
  //获取打印机
$ |( m3 V' c% d8 n" ?  A$ l3 w  z  Printer()-&gt;GetPrinter(ADevice, ADriver, APort,DeviceMode);
  A- j  u, J* i9 l7 y7 x# C  //获取PDevMode结构
# P3 Q( j* e* S  C( Q$ `  DevMode =(_devicemodeA*) GlobalLock((void *)DeviceMode);
$ r8 g! E% }4 Y  //设定可以修改的值 ' d6 E: i) s) {2 @% ~  q
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERSIZE; % i4 s6 z2 U7 z8 o. c7 K
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERLENGTH; 2 |' J+ N& V* F3 s& D
  DevMode-&gt;dmFields = DevMode-&gt;dmFields|DM_PAPERWIDTH; 5 m: z% K; m7 h
  //设定要修改的值 ; u) g+ b3 H+ m0 k- x
  DevMode-&gt;dmPaperSize=DMPAPER_USER;//设为自定义纸张 * W( L: Z% Q! e, E8 k
  DevMode-&gt;dmPaperLength=length; * m# x$ M0 ^! ]5 B8 A# j
  DevMode-&gt;dmPaperWidth=width; </P>& Q  \. p9 g( J2 Q% E3 N
<>  //测试打印 % f; \/ P! V8 M* p9 D7 L
  Printer()-&gt;BeginDoc();   p1 E$ a' q7 X6 L+ f
  TextOut(Printer()-&gt;Handle, 0, 0, "-----------------",17); ) V$ N. h* @8 G4 @2 n8 }  ^3 p
  Printer()-&gt;NewPage(); 7 h! f1 Z* C7 P2 r3 L# J1 i
  TextOut(Printer()-&gt;Handle, 0, 0, "++++++++++++++++++",18); ( h5 Y2 P; [0 O
  Printer()-&gt;NewPage(); # q; s) I7 X% \) v  }
  Printer()-&gt;EndDoc();
0 o! }' h% D+ D} </P>
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
您需要登录后才可以回帖 登录 | 注册地址

qq
收缩
  • 电话咨询

  • 04714969085
fastpost

关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

手机版|Archiver| |繁體中文 手机客户端  

蒙公网安备 15010502000194号

Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

GMT+8, 2026-4-20 18:05 , Processed in 0.258195 second(s), 51 queries .

回顶部