问以特定的文件名打印到"Microsoft Print to PDF“

EN

您可以直接将Excel工作表保存为PDF格式。试着在宏下面。更改C:\以将文件保存到所需位置。

Sub SavePDF()
Dim pdfName As String

    pdfName = "MyFileName"

    Sheets("MyPDFsheet").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\" & pdfName & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=True, _
    OpenAfterPublish:=False

End Sub

1. PDF打印到一个“端口”，该端口可以具有与任何打印设备相同的文件名。用户通常负责选择设备/文件夹/portname.pdf，因此有一个虚拟的PORTPROMPT: device (通过打印提示对话框设置)

( A)将一个重复驱动程序设置为一个端口，作为监视文件夹中的固定文件名。见https://stackoverflow.com/a/69169728/10802527和Print to PDF with powershell while suppressing the "Save As" Prompt

1. A)您不能这样做，这个Windows 11和其他Windows版本一样，目前没有MS打印机，它是windows可选的额外设备，我不允许安装。

(

1. A)变量太大，默认的第1 NEtwork打印机可能是传真，在本例中不应该返回空

。

1. A)保存应该有选择。请参阅https://superuser.com/questions/1064214/create-pdf-from-an-excel-file-without-white-margins的其他建议，然而对于PDF打印来说，没有固定大小的原因很多，除非告诉其他明智的人，否则Windows将继续将打印机更改为“最后一次使用”，并且最后一次使用可以是任何纸张或页边距。但是，在我的例子中，我经常将默认值设置为我的区域(A4肖像)，并且尽可能多地设置“无边距”，但是windows会经常将其重置为大的“默认”。也许我应该将默认值设置为A4zerOmargin