社区
VB基础类
帖子详情
VB中怎样实现对打印机的进纸,退纸的控制????
lura
2002-09-02 04:25:10
如题!
...全文
48
4
打赏
收藏
VB中怎样实现对打印机的进纸,退纸的控制????
如题!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
shally5
2002-09-03
打赏
举报
回复
如果有针式打印机,如:EPSON LQ 系列,
可以查一下它的手册,其中有很详细的说明
还有操作打印机的控制字符等等
如你要的进纸,进页,退纸,进一行,退一行。。。
值得注意的是,对于不同的针式打印机,操作方法(主要是
操作控制字符是不同的)对于激光、喷墨打印机是一般没有
例如进一行,退一行等功能的。。。。
二师兄的老公
2002-09-03
打赏
举报
回复
楼上的答案跟问题有什么关系?
wzsswz
2002-09-03
打赏
举报
回复
Public Sub pj_print()
If MsgBox("打印xxxx证?", vbQuestion + vbOKCancel, "提示") = vbOK Then
Dim yy As String
Dim mm As String
Dim dd As String
Dim fpath As String
yy = Year(CDate(RTrim(T_date.Text)))
mm = Month(CDate(RTrim(T_date.Text)))
dd = Day(CDate(RTrim(T_date.Text)))
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Font.name = "宋体"
Printer.Font.Size = 14
Printer.CurrentY = Printer.CurrentY + 550
Printer.CurrentX = 2400
Printer.Print "xxx有限公司" '公司名称
Printer.Font.name = "宋体"
Printer.Font.Size = 11
Printer.CurrentY = 1170
Printer.CurrentX = 2300
Printer.Print yy + " " + mm + " " + dd '年月日
Printer.CurrentY = 1638
Printer.CurrentX = 2400
Printer.Print Cb_comp.Text '提货单位
Printer.CurrentY = 1638
Printer.CurrentX = 7900
Printer.Print T_link_man.Text '提货人
Printer.CurrentY = 2308
Printer.CurrentX = 2400
Printer.Print "普通水泥/" + T_degree.Text '强度等级
Printer.CurrentY = 2308
Printer.CurrentX = 5200
Printer.Print T_breed_code.Text '水泥编号
Printer.CurrentY = 2308
Printer.CurrentX = 8000
Printer.Print T_store_name.Text '仓位号
Printer.CurrentY = 2938
Printer.CurrentX = 2800
Printer.Print T_bill_number.Text '提货单号
Printer.CurrentY = 2938
Printer.CurrentX = 7500
Printer.Print T_amount.Text + " 吨" '提货数量
Printer.CurrentY = 3608 '4308
Printer.CurrentX = 2800
Printer.Print T_vehi_comp.Text '承运单位
Printer.CurrentY = 3608
Printer.CurrentX = 7500
Printer.Print T_vehi_tool.Text '运输工具
Printer.CurrentY = 4908 '6208
Printer.CurrentX = 7800
Printer.Print Cb_makeout_man.Text '开单人
Printer.EndDoc
Call Sleep(4000)
GoTo mylab0
mylab0:
On Error GoTo mylab1
Open "LPT1:" For Output As #1
For i = 0 To 16
Print #1, ""
Next
Close #1
Exit Sub
mylab1:
Err.Clear
Call Sleep(4000)
GoTo mylab0
End If
End Sub
lura
2002-09-02
打赏
举报
回复
大家帮帮忙呀!!!!
RMReport 7
在RM
中
,打印设置只能保存页面边距及打印份数、是否两遍打印以及是否套打等参数,缺少保存
打印机
纸张类型、
进纸
方式以及纸张页面大小等信息的保存及引入。详情可以参见RM_Class.pas代码的第13776行的保存处代码以及...
易语言程序免安装版下载
修改外部数据库在4.12版
中
导致的不兼容问题,并增加了对MS SQL Server数据库
中
image和text字段类型的说明。 7. 修改扩展界面支持库一,禁止透明标签在父窗口刷新时自动刷新,以解决其导致窗口刷新缓冲的问题。 8....
计算机二级(
VB
)
该课程面向对象: 备考计算机二级(
VB
)的课程 备课期末考试 自学
VB
程序设计 课程注意提高学习者实战技巧,授课过程
中
以实际操作演示为主,帮助学习者快速地掌握编程的实际方法和技巧。 课程以2019年计算机二级大纲...
打印机
显示缺纸服务器脱机,
打印机
:提示“缺纸”后无法继续打印的解决办法...
[故障现象]在打印过程
中
,
打印机
缺纸。当纸张放回纸盘时,
打印机
仍处于红灯闪烁状态,未完成的文件无法继续打印。[失败原因]
进纸
盘
中
没有足够的纸张,因此无法打印未完成的文档。[解决方案]方法1:按照提示操作当...
VB
如何使用API直接操作
打印机
有时出于某种原因,我们需要使用API直接操作
打印机
,而不是使用Printer对象。在网上这类代码较少,而且功能也不齐全,所以写了这段代码。由于写得匆忙,且没有安装打印,因此差错在所难免,希望朋友们指正。 Option...
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章