从Excel 2003打印PDF而无需下载插件?

时间:2013-12-17 20:08:19

标签: excel-vba pdf-generation vba excel

我目前正在运行Excel 2013.我有一个用户表单,其中数据正在输入到它后面的Excel工作表中。 userform已经过编码,因此用户无法直接访问其后面的工作表。相反,添加了运行宏以打印PDF格式的单个工作表的按钮。这在用户运行Excel 2007或更高版本的情况下非常有用。以下是我目前正在完成任务的一小部分。

Private Print_Confirm As Boolean
Private ThisFile As String
Private dt As String
Public oSHELL As Object, sDesktopPath As String

If Application.Version >= 12# Then
    Sheets("Home").Select
    ThisFile = Range("A21").Value
    dt = Format(CStr(Now), "yyyy_mm-dd_hhmm")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    sDesktopPath & "\" & ThisFile & "_" & dt & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
Else
' Sub routine here to handle 2003?
End If

所以重申一下我的问题 - 是否可以从2003年打印PDF格式的工作表而无需下载添加/转换器

1 个答案:

答案 0 :(得分:0)

据我所知,办公室/窗户只配备了XPS打印机,至少可以与PDF打印相媲美。你考虑过使用XPS吗?

如果XPS没有解决方案,那么运气不好,因为没有插件等.Office不支持PDF。 也许你可以安装一台确实没有插件或转换器的PDF打印机。它是一个打印机界面,可以通过软件打印到PDF上,而不是通过打印机在纸上打印。