Immer noch Druckproblem bei VBA NEED HELP!!!!
11.04.2006 13:38:24
MarkusR
Ich weiß, dass es beim PrintOut Befehl eine Option "Copies" gibt. Aber wie setze ich diese Option ein?
Hallo nochmal,
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