咋会事儿呀?

chinasqf 2001-11-28 03:22:18
for i=0 to 500
printer.currentx=500
printer.currenty=i*300
printer.print i
next
用连续纸打印(上边的程序一共可打10张纸),但打到第二张的时候就不打了,为什么?
解决了,立刻加分。


...全文
74 8 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinasqf 2002-01-28
  • 打赏
  • 举报
回复
ok
chinasqf 2001-11-29
  • 打赏
  • 举报
回复
我也说过了,我打的就是不分页Printer.PaperSize = 256
Printer.Height = 102000
For i = 1 To 100
Printer.CurrentX = 500
Printer.CurrentY = i * 1000
Printer.Print i
Next
Printer.EndDoc
上面的程序可以一直打印100行,打完后又走2张纸,我现在是不想让打印机在走那两张纸,打完后立刻停下或再走多出的1000个单位的长度(约2CM)
junglerover 2001-11-29
  • 打赏
  • 举报
回复
老兄你也真奇怪,上次就跟你说过,不要以为是连续纸就
不用分页。
根本没有任何打印机会支持300*500那么长的纸张的。
比如,你认为连续纸的一页能打30行,那么可以写成这个样子:

printer.currentx=500
for i=1 to 500
printer.currenty=(i mod 30)*300
printer.print i
if i mod 30=0 then
printer.newpage
end if
next i
cgb_prince 2001-11-28
  • 打赏
  • 举报
回复
300 * 500 = ?
chinasqf 2001-11-28
  • 打赏
  • 举报
回复
当然不是
atyzy 2001-11-28
  • 打赏
  • 举报
回复
不是打印机自保护?
chinasqf 2001-11-28
  • 打赏
  • 举报
回复
改完纸张设置以后,如果只打印3行,打印机会走很长一段才停下来,有没有办法让打印机倒着走回去一段,或打完后立刻停下。
BadCatw 2001-11-28
  • 打赏
  • 举报
回复
改动纸张的设置
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-28 03:22
社区公告
暂无公告