在Excel中使用macros保存选定的列在1页

我想使用macros保存excel中的标签，列a，列b和列c，如下面的1页所示。 以下是仅预览pdf中1列的macros。

Sub Save_PDF() Dim Nm As String Dim Rng As Range Set Rng = Range("B2") Nm = ActiveWorkbook.FullName Nm = Left(Nm, InStrRev(Nm, ".") - 1) & Format(Now, " yyyymmddhhmmss") & ".pdf" Rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nm, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=True, OpenAfterPublish:=True End Sub 

我需要的标签示例

excel中列的示例

[

感谢帮助

Answer 1

要强制所有内容在一个页面上打印：

 With ActiveSheet .ResetAllPageBreaks .PageSetup.FitToPagesWide = 1 .PageSetup.FitToPagesTall = 1 End With