Question

VB 打印问题

Private Sub 确定_Click()
c = TextBox1
b = TextBox2
For i = c To b
If Sheets(ComboBox1.Text).Cells(i, 5) = "开通" Then
Sheets("sheet1").Cells(2, 8) = "000000" & Sheets("sheet1").Cells(2, 8) + 1
Sheets("sheet1").Cells(5, 2) = Sheets(ComboBox1.Text).Cells(1 + i, 3)
Sheets("sheet1").Cells(6, 4) = Sheets(ComboBox1.Text).Cells(1 + i, 2)
Sheets("sheet1").PrintOut
End If
Next i
End Sub
我要打印sheet1，运行输入，点确定后，没反应？？求解救

Answer 1

直接用Printer控件即可

Set Printer = Printers(0) '设定打印机
Printer.ScaleMode = vbMillimeters '设定单位毫米

Printer.fontname = "宋体" '设定字体
Printer.Fontsize = 10
Printer.FontBold = False
Printer.FontItalic = False

Printer.Line (10, 10)-Step(1, 1) '划线从坐标10,10到11,11

Printer.CurrentX = 10 '设定文字的左边距
Printer.CurrentY = 10 '设定文字的上边距
Printer.Print "文字" '输出文字，输出后别忘了重新设定边距

Printer.NewPage '新建一页

Printer.EndDoc '打印机输出

Printer控件属性也不是太多，花点时间研究一下，肯定能满足你的需求的。
打字不易，如满意，望采纳。