VBA无边界打印

我必须在Excel VBA中设置一个页面......问题在于页面必须是无边界的。因此，不仅仅是选择左，右，顶等选项的常用方式，我还必须操作打印机以确保不会看到边框......嗯，我可以手动执行此操作，但即使我录制了宏...在我发现后，我发现没有任何记录在这个问题上....不需要任何宏录制的帮助我做到了这一点赖特......宏在那里......与子.. ...但没有VB代码...我也可以编写它manualy ..但如何......没有任何打印机对象....任何解决方案？VBA无边界打印

来源

2012-04-11 Fendrix

打印机配置由打印机驱动程序处理的页面。 Excel被绕过。 – 2012-04-11 22:32:18

谢谢，但我如何检索打印机驱动程序？ – Fendrix 2012-04-12 09:46:03

如果我知道我会留下一个答案。 – 2012-04-12 13:23:26

我认为下面的代码应该可以帮到你。

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-13 07:07:01 Heman

谢谢，但边框仍然存在...我想我必须处理PostScript ...因为我需要......以检索打印机驱动程序...我有一个佳能MP490 ...如果有一个简单的方法来编码它..... – Fendrix 2012-04-13 14:57:56

VBA无边界打印

回答

相关问题