作者:乔山办公网日期:
返回目录:excel表格制作
Sub Macro1()
'
If MsgBox("是否zd确定要保内存为容PDF", vbOKCancel) = vbOK Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & Format(Now(), "yyyymmdd-hhmmss") & ".pdf"
End If
End Sub
如果是把excel打印成PDF文件,就可zd以用Foxit PDF Creator, 里面的超链接是可以实现的.如果把PDF文件里的专超链接打印在纸上?那就是PDF文件是怎样的,就打印成怎属样的. 或者你可选择打印文档,注释
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Pout()
Dim FileSaveName$
FileSaveName = Application.GetOpenFilename(fileFilter:="Files (*.pdf), *.pdf")
On Error GoTo l
CreateObject("Wscript.Shell").Run (FileSaveName)
ShellExecute Application.hwnd, "Print", FileSaveName, vbNullString, vbNullString, 0
l:
End Sub