求助-VBA生成PDF

jooka

我现在有个需求：就是将excel工作表中鼠标所选的内容生成为PDF格式到D:\Online retailers文件夹内，pdf名称以当前工作表中A2单元格里的内容+B2单元格里的内容+当前日期+当前时间，有哪位大神可以帮我指点一下？万分感谢！

Chip_Kenny

Sub zz()
Dim f$
f = [a2] & [b2] & Format(Now(), "-yymmdd-hhmm")
Selection.ExportAsFixedFormat 0, "D:\Online retailers\" & f
End Sub

jooka

Chip_Kenny 发表于 2022-1-9 17:30
Sub zz()
Dim f$
f = [a2] &  & Format(Now(), "-yymmdd-hhmm")

非常感谢，请问有没有办法让导出的内容在PDF保持水平居中?

Chip_Kenny

jooka 发表于 2022-1-9 18:40
非常感谢，请问有没有办法让导出的内容在PDF保持水平居中?

匯出的格式是基於該頁的版面配置,樓主可以錄制一段水平居中代碼加入.

jooka

Chip_Kenny 发表于 2022-1-12 12:11
匯出的格式是基於該頁的版面配置,樓主可以錄制一段水平居中代碼加入.

好的，非常感谢

jooka

Chip_Kenny 发表于 2022-1-9 17:30
Sub zz()
Dim f$
f = [a2] &  & Format(Now(), "-yymmdd-hhmm")

你好，如果选中区域是固定的，比如是A1:E30.请问要加一句什么代码？

jooka

谢谢各位，问题已经解决

jooka

Chip_Kenny 发表于 2022-1-9 17:30
Sub zz()
Dim f$
f = [a2] &  & Format(Now(), "-yymmdd-hhmm")

你好，请问E4单元格为日期时，怎么在导出时文件名加上E4并强制按yy-mm-dd-hhmm命名？