宏停止在打印PDF代码

时间:2013-07-22 07:46:19

标签: excel pdf excel-vba excel-2010 vba

我们使用一台机器来运行我们的VBA宏 上周我们将机器改为运行Windows 7的虚拟“服务器”:我将使用术语服务器,因为它更像虚拟化PC。

除了一行代码之外,一切都在顺利进行:

Excel.ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=FilePath_pdf & FileName_pdf, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    From:=1, _
    To:=2, _
    OpenAfterPublish:=False

不幸的是,当它出现错误时报告的错误消息不是描述性的,如果我进入调试模式并点击F8,那么它运行行确定!

它是在网络登录的凭据下运行而不是我的网络登录 此登录与我们之前的非虚拟Excel框使用的登录相同。

我是否需要在新盒子上安装一些需要仔细检查的软件? 我可以采用另一种方法将此文件的内容移动到pdf文件中吗?

1 个答案:

答案 0 :(得分:0)

[第三方注意:这不是问题的答案]

错误处理示例:

Public Sub Boo(ByVal Calendar As Variant)
On Error GoTo ErrHandler

  Dim sProcedureName As String: sProcedureName = "Boo"

  'Code here

ExitProcedure:
  On Error Resume Next
  'Final termination here
  Exit Sub

ErrHandler:
  Debug.Print "Error """ & Err.Description & """ in " & sProcedureName
  GoTo ExitProcedure:
  Resume 'used for debugging, never hit in run time

End Sub