Question

VB 设置纸张

Sub a()
c = InputBox("请输入开始序号")
b = InputBox("结束序号")
For i = c To b
Sheets("sheet1").Cells(2, 8) = Sheets("sheet1").Cells(2, 8) + 1
Sheets("sheet1").Cells(5, 2) = Sheets("sheet2").Cells(1 + i, 3)
Sheets("sheet1").Cells(6, 4) = Sheets("sheet2").Cells(1 + i, 2)
PrintOut
Next i
End Sub

我的代码怎么打出来的都是按A4纸，我的是针式打印机，打印票据，这个代码打出来一张，然后跳过一张，再打一张，再跳过一张.......，怎么设置它不跳过

Answer 1

首先：
用VB控制针式打印机，这个不是VB功能，控制硬件打印，同时控制纸张，你会用到VC的相关知识，比如接口，DLL调用，以及打印接口控制等等。
其次，
打印纸张控制，类似于报表，需要你深入的了解。