文件名称：票票打印.rar
文件大小：8KB
文件格式：RAR
更新时间：2022-09-19 15:07:44
票票打印 文字排列打印 自动调整 判断宽度 打印例子
Private Sub Command1_Click() ''开始打印 'On Error Resume Next '防错 Set Printer = Printers(Combo2.ListIndex) '打印机选择 Printer.Print PrintEndDoc(Picture1, Text1) ' 打印 Printer.EndDoc Picture1.Print PrintEndDoc(Picture1, Text1) ' 浏览 End Sub Private Sub Form_Load() '{打印机列表 Combo2.Clear Dim DYJLB As Printer For Each DYJLB In Printers: Combo2.AddItem DYJLB.DeviceName: Next If Combo2.ListCount >= 0 Then Combo2.ListIndex = 0 Else Combo1.Text = "本电脑没有找到打印机": Command1.Caption = "不可打印": Command1.Enabled = False 'On Error Resume Next '防错 'Set Printer = Printers(Combo2.ListIndex) '打印机选择'打印机列表} HScroll1_Scroll 0 End Sub
【文件预览】：
Form1.frm
票票打印.exe
工程1.vbp
Form1.frx
MSSCCPRJ.SCC
工程1.vbw