如何使用VBA保留printsetup

Question

我正在将原始格式的一些单元格复制到另一个电子表格中 我必须保留打印设置

Set res = .Offset(2).Resize(lastrow - 1).SpecialCells(xlCellTypeVisible)

                If Not res Is Nothing Then

                    Set wb = Workbooks.Add

                    wb.Worksheets.Add.Name = "report"



                   With wb.Worksheets("report")
                        rngHeader.Copy Destination:=.Range("A5")
                        res.Copy Destination:=.Range("A6")
                    End With

但是，新创建的电子表格不会保留Print Settings

我需要设置

1）方向景观 2）自定义边距.3 everythwere

我如何使用vba

执行此操作

Answer 1

如果通过“打印设置”实际意味着“页面设置”，请参阅属于每个工作表的PageSetup对象（例如ActiveWorkbook.Sheets(1).PageSetup.FooterMargin） - 您将在那里找到所有设置。您应该可以轻松地将它们从 Sheet1 复制到 Sheet2 ，并通过设置进行设置。如果您需要进一步的帮助，请告诉我，