VB中printer的使用 如何调整打印内容横向纵向

各位大侠，谁能提供一些关于printer的使用方法，最重要的是帮我解决如何设置打印内容是横向的还是纵向的。先谢过了
例如调整下面代码中的横纵向Private Sub Commandprintlable_Click()
frmlabel.Refresh '刷新标签
'''''''选择标签打印机
    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的内容选择为+设备名字
    
    ''''''''''''''''''以下为打印的内容----------需要编辑    Printer.FontSize = 40
    Printer.CurrentX = 1700
    Printer.Print Text1.Text '牌号
    Printer.CurrentX = 4100
    Printer.Print Text5.Text; '厚度
    Printer.CurrentX = 7100
    Printer.Print Text12.Text '宽度
    Printer.CurrentX = 9100
    Printer.Print Text13.Text '长度    Printer.FontSize = 21
    Printer.CurrentX = 12245
    Printer.Print Combobiaozhun.Text; '标准
'    Printer.CurrentX = 4900 + 400
'    Printer.Print Text6.Text; '厚度
'
    Printer.EndDoc '把这一句加上
'    Call sub_SaveData
'    Exit Sub
End Sub