社区
VB基础类
帖子详情
怎样改变打印机的打印方向?
masterkey
2000-08-09 05:11:00
我在用DataReport 做报表时发现一问题,向各位请教:
比如有两个不同的报表,一个是横向打印的,而另一个是纵向打印的,怎样才能实现不通过用户对话框方式就可以改变打印机的打印方向呢? 也就是用程序语句,用户完全不设置打印机属性就可以自由地打印这两个报表! API又怎样解决呢?
...全文
457
9
打赏
收藏
怎样改变打印机的打印方向?
我在用DataReport 做报表时发现一问题,向各位请教: 比如有两个不同的报表,一个是横向打印的,而另一个是纵向打印的,怎样才能实现不通过用户对话框方式就可以改变打印机的打印方向呢? 也就是用程序语句,用户完全不设置打印机属性就可以自由地打印这两个报表! API又怎样解决呢?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jincai78
2001-02-23
打赏
举报
回复
用Print对象可以,我用过的.
Printer.Orientation=1 //縱向
Printer.Orientation=2 //橫向
Seedling
2001-02-23
打赏
举报
回复
hfamwu():模块已邮出,请查收!另请给分。
hfamwu
2001-02-23
打赏
举报
回复
叶子,能否把你的模块给我介绍一下,或email给我,OK??
E_mail:hfamwu@ah163.com
litchi
2001-02-22
打赏
举报
回复
噢。。。
來遲了。。。。。
就是它
Printer.Orientation=1 //縱向
Printer.Orientation=2 //橫向
superman
2001-02-22
打赏
举报
回复
试途设置打印纸方向,没成功
Printer.Orientation = 1
Seedling
2001-02-22
打赏
举报
回复
masterkey : 我有一个模块(6个API函数)组成,专门用来改变打印方向的,你要吗?
vbdabster
2001-02-22
打赏
举报
回复
那个属性可以阿,我试过的
playyuer
2001-02-22
打赏
举报
回复
在VB的DataReport中能让它横打吗?
http://www.csdn.net/expert/Topic/53302.shtm
bucher
2001-02-22
打赏
举报
回复
这个没有用,微软已经承认这是DRD的一个bug,而且目前没有修补的办法。改用crystal reprot 8 RDC比较好。
vb6 设置
打印
机
纸张类型,以及
打印
方向
vb6 设置
打印
机
纸张类型,以及
打印
方向
设置
打印
机
纸张横纵
方向
的模块
vb6.0中设置
打印
时
改变
纸张横纵
方向
的小模块ORIENT.BAS
常见小票
打印
机
打印
故障及解决方法汇总视频教程
通过对“常见小票
打印
机
故障及解决方法汇总视频教程”课程学习,达到以下目的:1、可以独立自主安装
打印
机
驱动以及安装
打印
机
硬件设备 2、可以独立自主排除常见
打印
机
故障
方向
芯dir58iii行式热敏
打印
机
驱动 v6.2 官方版
方向
芯dir58iii驱动是一套的行式热敏
打印
机
驱动应用。用户可以使用该驱动正常安装好购买的
方向
芯dir58iii
打印
机
设备。体验该产品的各种
打印
功能。欢迎下载。产品参数
打印
方式:行式热敏
打印
打印
纸宽:57.5±0.5毫米有效
打印
宽度:48毫,欢迎下载体验
更改
打印
机
自定义 纸张类型 强大 dll
本人编写的 可 更改 任意
打印
机
的默认纸张类型、 大小、走纸
方向
的 可自定义纸张的 dll文件,使用时,可先设置纸张大小及
方向
,然后程序中调用
打印
,即可 按照指定 纸张大小 走纸, 控制准确,更改迅速, 更改完之后 还可 将
打印
机
默认纸张 还原为调用前的纸张类型 虽用vb编码,但其他语言也可调用此dll 详细函数调用如下 '以下函数均可独立使用 Dim p As New PrinSetUserDefine.PrintSetUserDefine '
改变
指定
打印
机
的 默认纸张大小及
方向
,指定
打印
机
不一定是默认
打印
机
Call p.StartPrintUserPage(28, 24, 1, "EPSON LQ-1600K IIIH ESC/P 2") '
改变
当前默认
打印
机
的 默认纸张大小及
方向
Call p.StartPrintUserPage(28, 24, 1) Dim height As Double '可以获取 指定
打印
机
名的 最大支持纸张高度 height = p.GetMaxPaperLength_Dmm("EPSON LQ-1600K IIIH ESC/P 2") '也可将指定
打印
机
名 设为 默认
打印
机
, 对于必须设置为默认
打印
,才可调用
打印
报表的程序 非常有用 Call p.SetPrinterToDefault("EPSON LQ-1600K IIIH ESC/P 2") '还原
打印
机
默认纸张为 自定义之前的纸张 Call p.EndPrintUserPage
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章