[已解决]vba宏 打印PDF，保存位置和文件名问题：

lxs2020

1.我想在点击打印按钮之后，输出文件名为 时间+客户名称
2.输出文件位置能自定义到指定文件夹

附录代码：
Sub 打印PDF()
    Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Sheet1.Range("H11").Value & ".pdf", , , False
End Sub

最佳答案

月排行榜 / 总排行榜

benhsu

2022-5-28 10:50

这是一点VBA不会呀
Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, "E:\订单保存\" & format(Sheet1.Range("o11").Value,"YYYY-MM-DD") & Sheet1.Range("H11").Value & ".pdf", , , False

跳转到最佳答案楼层

lxs2020

望大佬们指点帮忙修改下代码，感谢！

benhsu

    With Application.FileDialog(msoFileDialogFolderPicker)
        'Application.FileDialog(msoFileDialogFilePicker)
        .Title = "选择保存位置..."
        .ButtonName = "选择此文件夹"
        If .Show = True Then
            MyPath = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, MyPath & "\" & format(Sheet1.Range("o11").Value,"YYYY-MM-DD") & Sheet1.Range("H11").Value & ".pdf", , , False

lxs2020

benhsu 发表于 2022-5-28 09:13
With Application.FileDialog(msoFileDialogFolderPicker)
        'Application.FileDialog(msoFileD ...

非常感谢您，能在帮忙修改下，保存位置为电脑：E:\订单保存，下吗。真的感谢您！

lxs2020

benhsu 发表于 2022-5-28 09:13
With Application.FileDialog(msoFileDialogFolderPicker)
        'Application.FileDialog(msoFileD ...

默认保存到 E:\订单保存，不用跳出保存位置对话框了

benhsu

Sub 打印PDF()
    Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, "E:\订单保存\" & Sheet1.Range("H11").Value & ".pdf", , , False
End Sub

lxs2020

benhsu 发表于 2022-5-28 09:55
Sub 打印PDF()
    Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, "E:\订单保存\" & Sheet1.Ran ...

保存文件名能在帮忙改下吗
改成O11+H11，两个单元格内容

耽误您时间了，感谢！

benhsu

这是一点VBA不会呀
Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, "E:\订单保存\" & format(Sheet1.Range("o11").Value,"YYYY-MM-DD") & Sheet1.Range("H11").Value & ".pdf", , , False

lxs2020

benhsu 发表于 2022-5-28 10:50
这是一点VBA不会呀
Sheet1.Range("F7:P34").ExportAsFixedFormat xlTypePDF, "E:\订单保存\" & for ...

哈哈这次好了！感谢大佬！