1

我必须在 Excel VBA 中设置一个页面......问题是页面必须是无边框的。所以不仅是左、右、上等选项的常用方式，我还必须操纵打印机以确保不会看到任何边框......好吧，我可以手动完成，但即使我记录了宏...在我完成后，我发现根本没有针对此问题记录任何内容....不需要任何宏记录的帮助我做到了...宏就在那里...带有子.. ...但根本没有 VB 代码...我也可以手动编码...但是如何...没有任何打印机对象...任何解决方案？

4

1 回答 1

0

我认为以下代码应该对您有所帮助。

    Public Sub PrintButton1_Click()
    Dim CurrRange As Range, CurrRange2 As Range

    Set CurrRange = ThisWorkbook.Worksheets("Sheet1").Range("A1:--")
    Set CurrRange2 = ThisWorkbook.Worksheets("rough").Range("A1:--")
    CurrRange2.ClearContents
    CurrRange.Copy
    CurrRange2.PasteSpecial xlPasteAllExceptBorders

上面的语句应该以您想要打印输出的格式粘贴内容。

然后使用以下代码设置页面并打印

    With PageSetup
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
    End With
    CurrRange2.PrintOut 1, 1, 1
    End Sub
于 2012-04-13T07:07:01.970 回答