我想打印一张单据,单据中有一行是表式一些用品,可每张单据中的用品数量不同,每一种用品占一行,当打完最后一行之后,如何能让打印机把纸停在那里,就不要走了,我也参考了论坛里的一些做法,可都没成功,还请各位帮忙指教,谢谢!

解决方案 »

  1.   

    WIN98下能打印中文,WINXP下能打印英文字符及数字,打印机为EPSON针打: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