2012-04-11 8 views
1

Ich muss eine Seite in Excel VBA einrichten ... das Problem ist, dass die Seite randlos sein muss. Also nicht nur den üblichen Weg der Option links, rechts, oben usw., ich muss auch den Drucker manipulieren um sicherzustellen, dass kein Rahmen zu sehen ist ... naja, das kann ich manuell machen, aber selbst wenn ich das Makro aufnehme ... nachdem ich fertig war, fand ich heraus, dass für dieses Problem überhaupt nichts aufgezeichnet wurde .... brauche keine Hilfe bei irgendwelchen Makroaufnahmen Ich habe es richtig gemacht ... das Makro ist da ... mit Sub .. ... aber überhaupt keinen VB Code ... Ich könnte es auch manuell codieren ... aber wie ... es gibt kein Druckerobjekt .... irgendeine Lösung?VBA randlos Drucken

+0

Die Druckerkonfiguration durch den Druckertreiber gehandhabt wird. Excel wird umgangen. –

+0

danke, aber wie kann ich den Druckertreiber abrufen? – Fendrix

+0

Wenn ich wüsste, dass ich eine Antwort hinterlassen hätte. –

Antwort

0

Ich denke, der folgende Code sollte Ihnen helfen.

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 

obige Anweisung sollte den Inhalt in das Format einfügen, das Sie ausdrucken möchten.

Dann richten Sie die Seite den folgenden Code und Drucken mit

With PageSetup 
    .Zoom = False 
    .FitToPagesTall = 1 
    .FitToPagesWide = 1 
    End With 
    CurrRange2.PrintOut 1, 1, 1 
    End Sub 
+0

Danke, aber die Grenze ist immer noch da ... Ich denke ich habe mit PostScript zu tun ... da brauche ich etw den Druckertreiber holen ... Ich habe eine Canon MP490 ... wenn es eine einfache Möglichkeit zum code gibt es ..... – Fendrix