能不能把excel表格像保存长截图一样保存为PDF？

百读谷歌 · 发表于 2024-1-20 21:10

也就是不要分割成多页显示，而是像长截图一样，把设置好的打印区域中有数值的区域，像长截图一样保存为PDF？

或者能直接把表格内容保存为长截图也行，但是要清晰，不能模糊。

求助这个能不能实现？

gwjkkkkk · 发表于 2024-1-20 21:50

Option Explicit
Sub test()

Dim strFileName$, strPath$, rng As Range, r&
strPath = ThisWorkbook.Path & "\"
strFileName = strPath & "mypdf"
r = Cells(Rows.Count, "A").End(xlUp).Row
Set rng = Range("A1:I" & r)
rng.Select
rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName

End Sub

gwjkkkkk · 发表于 2024-1-20 21:51

请参考附件。。。

lujkhua · 发表于 2024-1-21 07:52

gwjkkkkk 发表于 2024-1-20 21:51
请参考附件。。。

楼主要求是：不管文档几页，转成PDF只能一页

perfect131 · 发表于 2024-1-21 17:40

本帖最后由 perfect131 于 2024-1-21 17:45 编辑

纯 vba 长截图一页PDF，当然可以

perfect131 · 发表于 2024-1-21 17:59

区域转图就一行代码

10 楼
https://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1597743&pid=10771026

changhong8 · 发表于 2024-1-21 19:48

snipaste，复制单元格区域后，直接F3贴为长图。

百读谷歌 · 发表于 2024-1-26 19:52

perfect131 发表于 2024-1-21 17:40
纯 vba 长截图一页PDF，当然可以

你好，请问这代码就这么几行吗？能否劳烦把完整代码贴上来，非常感谢。

perfect131 · 发表于 2024-1-26 20:57

百读谷歌发表于 2024-1-26 19:52
你好，请问这代码就这么几行吗？能否劳烦把完整代码贴上来，非常感谢。

当然可以、需要超能力

、有偿找我

gwjkkkkk · 发表于 2024-1-27 12:46

学习了。。。

		自动登录	找回密码
密码			免费注册

[求助] 能不能把excel表格像保存长截图一样保存为PDF？

评分