Printer.ScaleMode = vbMillimeters
Printer.FontName = "宋体"
Printer.FontSize = 10
Printer.FontBold = False '粗体
Printer.Height = 1500
Printer.Width = 2400
Printer.CurrentX = 15
Printer.CurrentY = 20 '收寄局
Printer.Print (originalOffice)
Printer.CurrentX = 130
Printer.CurrentY = 20 '收件人
Printer.Print (recipients) Printer.EndDoc
打印机用的是EPSON的LQ590针式,打印机上的模式也调对了是连续进纸,纸张也自定义了,连续打的时候,打完第一张之后,纸张就往上推,好像打A4纸打完就顶出来,差不多走了一张EMS单的空白,然后打第三张上面去了,一直这样.
打完后第1.3.5有数据,2,4,6空的,我的程序根本不是按照我的连续纸走纸,请问问题出在哪里?
Printer.FontName = "宋体"
Printer.FontSize = 10
Printer.FontBold = False '粗体
Printer.Height = 1500
Printer.Width = 2400
Printer.CurrentX = 15
Printer.CurrentY = 20 '收寄局
Printer.Print (originalOffice)
Printer.CurrentX = 130
Printer.CurrentY = 20 '收件人
Printer.Print (recipients) Printer.EndDoc
打印机用的是EPSON的LQ590针式,打印机上的模式也调对了是连续进纸,纸张也自定义了,连续打的时候,打完第一张之后,纸张就往上推,好像打A4纸打完就顶出来,差不多走了一张EMS单的空白,然后打第三张上面去了,一直这样.
打完后第1.3.5有数据,2,4,6空的,我的程序根本不是按照我的连续纸走纸,请问问题出在哪里?
解决方案 »
- 用select * from openrowset()提示from 子语法错误
- 数据库的设计问题
- 如何将该字符串转化为ADO数据流和记录集?
- 在过程中如何获得当前过程名?
- VB不支持多线程,那VB里面的Timer控件是不是在一个单独的线程里面运行的呢?困惑...
- sql语句中使用了order by 后,怎么更新的时候会出现错误(asp,vb中)
- 急,求助!关于datareport(打印报表)在其他机子(没vb环境)上运行出错
- 怎么使PC喇叭(注意不是音箱)发出指定的声音? beep不行,机器有声卡!!! WIN2000下也要能用啊!
- 20分,请提供那里有wise installation和installshield的中文补丁,和教程下载
- 如何移动指针到指定的记录?Ado+Access
- 求助!RtlAdjustPrivilege()的使用!
- vb访问java webservice,返回Exception occurred while trying to invoke service method
2确认打印方向问题
3确认打印的内容未超过设定的纸张大小范围
4如果都没问题,用WORD搞两张打印一下试试,一般来讲,如果WORD打印的没问题,那么就还得在程序上面找原因了
你上面说的都没有问题
Printer.CurrentX = 0
Printer.CurrentY = 0 '收寄局
Printer.Print "打印走纸测试"printer.NewPage '下一页
Printer.CurrentX = 0
Printer.CurrentY = 0 '收寄局
Printer.Print "打印走纸测试"Printer.EndDoc '提交打印任务
看看能不能正常走纸
如果是通过程序设置的,不能直接设置
printer.Height
printer.Width
这种方法设置纸张对于现在的操作系统是没有用的,只适合98及以前的
需要通过API来进行定义纸张的
Private Sub Command1_Click()
Open "LPT1" For Output As #1
For I = 1 To 5
Print #1, Chr(10); "控制换行,同Chr(13) "
Next
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL"; "正常字体每行80字符"
Print #1, Chr(14); "ABCDEFGHIJKL"; "宽体每行40字符 "
Print #1, Chr(27); "IA"; "恢复正常字体 "
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL"; "正常字体每行80字符"
Print #1, Chr(27); "IB"; "ABCDEFGHIJKL"; "横向扩展每行40字符 "
Print #1, Chr(27); "IC"; "ABCDEFGHIJKL"; "纵向扩展每行80字符 "
Print #1, Chr(27); "E"; "ABCDEFGHIJKL"; "加重黑体 "
Print #1, Chr(27); "F"; "取消加重黑体 "
Print #1, Chr(27); "IA"; "恢复正常字体 "
Print #1, Chr(27); "4"; "ABCDEFGHIJKL"; "斜体 "
Print #1, Chr(27); "5"; "取消斜体 "
Print #1, Chr(27); "0"; "ABCDEFGHIJKL"; "打印每吋6行改8行 "
Print #1, Chr(27); "1"; "ABCDEFGHIJKL"; "重置行间隔为7/72 "
Print #1, Chr(27); "2"; "ABCDEFGHIJKL"; "重置行间隔为1/6 "
Print #1, Chr(27); "IA"; "ABCDEFGHIJKL"; "正常字体每行80字符"
Close #1
End Sub