Neues Problem bei Druckbutton
11.04.2006 10:13:03
MarkusR
jetzt habe ich ein kleines neues Problem. ich würde gerne beim Ausdruck auf den Papierdrucker "3" Exemplare drucken. UND: Gibt es die Möglichkeit, den Papierdrucker anders zu benennen? So, dass ich meine Tabelle auch auf anderen Computern bei uns öffnen kann und drucken kann... (z.B. LPT1: ?, oder als Standard Definierter Drucker? )
Hier mein VBA Code bisher:
Private Sub CommandButton1_Click()
With ActiveSheet.PageSetup
.PrintArea = "$A$1:$AZ$69"
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ActiveSheet.PrintOut ActivePrinter:="DocuWare TIFFMAKER 2000"
End Sub
^^^^^^^^^^^^^ Bis hier in O.k.!
Private Sub CommandButton2_Click()
With ActiveSheet.PageSetup
.PrintArea = "$DB$2:$EX$67"
.PaperSize = xlPaperA4
.Zoom = False
.FitToPagesTall = 1
.FitToPagesWide = 1
End With
ActiveSheet.PrintOut ActivePrinter:="HP LaserJet 4"
End Sub