如何解决新代码要求打印机设置和错误
我写了一些快速的vba代码,直到保存退出的工作表才能返回并遇到以前从未遇到过的错误,然后才能正常工作。当我现在打开excel文件时,它正在询问我打印机的设置。我尝试对Adobe PDF来说还可以,它只是不断循环返回消息。当我点击取消时,它告诉我“当前打印机不可用。选择另一台打印机。当我尝试运行代码时,我收到运行时错误'1004':当前打印机不可用。当我进行调试时,我需要这是下面的3-6行。对此有任何想法吗?
Sub Email_Ticket()
Application.ScreenUpdating = False
myFilename = "S: " & Format(Now(),"DD-MMM-YYYY")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,_
Filename:=myFilename,_
OpenAfterPublish:=False
Application.ScreenUpdating = True
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = ""
Dim strFilePath As String
Dim strFileName As String
On Error Resume Next
With xOutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Trade Ticket " & Format(Date,"mm/dd/yyyy")
.Body = xMailBody
.Attachments.Add myFilename & ".pdf"
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
有人遇到过这个问题,或者知道为什么这突然发生在这里吗?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。