VBA无边框打印

我必须在Excel VBA中设置一个页面。。。问题是页面必须是无边框的。因此，不仅是选择左、右、上等的常规方式，我还必须操纵打印机，以确保看不到任何边框。。。嗯，我可以手动操作，但即使我录制宏。。。在我找到之后，我发现这个问题根本没有任何记录。。。。不需要任何宏录制的帮助我做的是wright。。。宏在那里。。。与分。。。。。但是根本没有VB代码。。。我还可以手动编写代码。。但是如何。。。没有任何打印机对象。。。。有解决办法吗

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

    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

---

打印机配置由打印机驱动程序处理。Excel已被绕过。谢谢，但我如何检索打印机驱动程序？如果我知道我会留下答案的话。你现在可能已经明白了这一点，但创建没有边距的打印输出称为完全出血，这是普通台式打印机无法做到的。谢谢，但边界仍然存在。。。我想我得用附言。。。因为我需要某物来检索打印机驱动程序。。。我有一台佳能MP490。。。如果有一种简单的编码方法。。。。。