????? ???? ????????? ?? ??? ????? ?????

vb6.0

printer.Orientation =1 '或VbPRORPortrait，纵向printer.Orientation =2 '或VbPRORLandscape ，横向printer.PaperSize=8 '或者VbPRPSA3 ，A3纸printer.PaperSize=9 '或者VbPRPSA4,A4纸'''''''选择标签打印机 Dim i As Long For i = 0 To Printers.Count - 1 If Printers(i).DeviceName = "Zebra Z6M Plus (200dpi)" Then Set Printer = Printers(i) Exit For End If Next Debug.Print "选择为",i,Printer.DeviceName 'Debug的内容选择为+设备名字

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!