VBA 无边距打印

【问题标题】：VBA borderless printVBA 无边距打印
【发布时间】：2012-04-13 16:36:39
【问题描述】：

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

【问题讨论】：

打印机配置由打印机驱动程序处理。 Excel 被绕过。
谢谢，但我怎样才能找回打印机驱动程序？
如果我知道我会留下答案。
您现在可能已经想通了，但是创建没有边距的打印输出称为“全出血”，这是普通桌面打印机无法做到的。

标签： vba

【解决方案1】：

我认为下面的代码应该对你有所帮助。

    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

【讨论】：

谢谢，但边框仍然存在...我想我必须使用 PostScript...因为我需要某事来检索打印机驱动程序...我有佳能 MP490...如果有一种简单的编码方法.....