VB中怎样实现对打印机的进纸，退纸的控制？？？？

Question

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

Answer 1

如果有针式打印机，如：EPSON LQ 系列，
可以查一下它的手册，其中有很详细的说明
还有操作打印机的控制字符等等
如你要的进纸，进页，退纸，进一行，退一行值得注意的是，对于不同的针式打印机，操作方法（主要是
操作控制字符是不同的）对于激光、喷墨打印机是一般没有
例如进一行，退一行等功能的。