请求：如何将窗体打印为横向!-未解-有没有别的方法打印

lianjianke

吴狄 发表于 2019-1-21 20:47
能详细一点吗？分享一下代码，正需要。

Function getPrinters()
Dim objWMI
  '取得WMI服务
  Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  '查找系统所有打印服务(这是集合)
  Set getPrinters = objWMI.ExecQuery("Select * from Win32_Printer")
End Function
'_______________________
'以字符名为依据设置默认打印机
Function SetDefaultPrinter(strName)
Dim cols, prnx
SetDefaultPrinter = False
Set cols = getPrinters()
For Each prnx In cols
    If UCase(prnx.name) = UCase(strName) Then
      prnx.SetDefaultPrinter
           SetDefaultPrinter = True
         Exit Function
    End If
Next
End Function
Sub PrintSet()
On Error GoTo err
Dim Current
Application.Dialogs(9).Show
Current = Application.ActivePrinter             '把打印设置窗体赋给变量,则取到的打印名中含有端口名,如（在 Ne01:)
Current = Mid(Current, 1, Len(Current) - 8)     '获取名称
SetDefaultPrinter Current                       '更改默认打印
PrintName = Current
MsgBox "默认打印机" & PrintName & "， 如无误，则根据要打印的表格的方向设置横纵向，如果不是使用本打印机，请按窗体上的按钮修改默认打印机！"
Call Shell("rundll32 printui.dll ,PrintUIEntry /e /n """ & PrintName & "")'调用cmd来调出系统打印机首选页
err:
End Sub'上面有些语句可以简洁点，不过对我来说，能用就好了，就不调整了。对了我是win10 64位系统，64位office