[已解决]菜鸟求助：制作一个按钮将当前打印区域生成PDF文件

alxixi520

如题：
菜鸟求助：制作一个按钮将当前页面的打印区域生成PDF文件，文件存储路径与当前表在同一文件夹，文件名自定义。谢谢了！在线等。{:1312:}

再次感谢   爱疯   同学的帮助！

最佳答案

月排行榜 / 总排行榜

爱疯

2015-1-30 20:58

Sub test()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & "\" & [s26] & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub


刚才少加了一个符号，现在 应该在一起了

跳转到最佳答案楼层

爱疯

http://download.microsoft.com/do ... SaveAsPDFandXPS.exe

安装后，录制另存工作簿的宏。

alxixi520

已经安装了，可是不会自定义保存文件名，我录制的宏只是自动生成一个文件。文件名没法自定义。

爱疯

Sub 宏3()
'
' 宏3 宏
'

'
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\360安全浏览器下载\工作簿3.pdf", Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

附件是录制宏的动画，蓝色改成你的路径，绿色改成你的文件名。
asfsf3f.rar (418.49 KB, 下载次数: 47)

2015-1-30 20:17 上传

点击文件名下载附件

alxixi520

爱疯 发表于 2015-1-30 20:18
Sub 宏3()
'
' 宏3 宏

我是这样录制的。可是有个问题，因为其他原因，同一个表要分别保存为不同的文件名，总不能一个个的去修改。可否实现直接将文件保存到与原文件在同一个文件夹内，并且文件名等于当前表S26单元格内的数值，那么我直接修改这个单元格后就可以在同文件夹内保存一个新的PDF文件了。
谢谢您了！{:2812:}{:2812:}{:2812:}

爱疯

Sub test()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook.Path & [s26] & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub

alxixi520

爱疯 发表于 2015-1-30 20:32
Sub test()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        ThisWorkbook. ...

不知道哪弄得不对。没弄好。帮我做个附件呗。谢谢了。

爱疯

工作簿1.rar (9.82 KB, 下载次数: 35)

2015-1-30 20:45 上传

点击文件名下载附件

alxixi520

爱疯 发表于 2015-1-30 20:45

{:2512:}是不是跟版本有关系的啊？您给我附件也不能在同一个文件夹内别生成一个与S26相同的PDF文件。

爱疯

你是什么版本