Ausdrucken von Tabellenblättern
17.02.2005 09:43:47
Andreas
ich habe ein Problem, dass ich nicht verstehe....
Ich habe einen Button auf dem Tabellenblatt 1 "Drucken", der eine Userform aufmacht.
In der Userform kann ich verschiedene Auswahlen treffen, um etwas auszudrucken.
(mit Checkbox´n).
Hier der Code:
Private Sub CmdBtnDrucken_Click()
If Me.CheckBoxANAnsch.Value = True Then
Sheets("Angebot").PrintOut
End If
If Me.CheckBoxANAusw.Value = True Then
Sheets("BAVAngebotAN").PrintOut
End If
If Me.CheckBoxLohnAN.Value = True Then
Sheets("Lohnvor").PrintOut
Sheets("Lohnnach").PrintOut
End If
If Me.CheckBoxAGAusw.Value = True Then
Sheets("BAVAngebotAG").PrintOut
End If
Unload Me
End Sub
Jetzt zu meinem Problem....
Auf meinem PC funktioniert das Ausdrucken...
...aber auf dem PC meines Kollegen, bringt er die Fehlermeldung:
"Laufzeitfehler ´1004´
Die PrintOut-Methode des Worksheet-Objektes konnte nicht ausgeführt werden"
Wer kann mir da schnell weiterhelfen....???
Wie muß ich denn den Code umstellen???
Bin schon am verzweifeln.
Danke im voraus.
Grüße
Andy
Anzeige