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的内容选择为+设备名字
原文链接：https://www.f2er.com/vb/261340.html