Print Workbook ohne tabellenblatt "Hilfe"
juergen
bescheidenes Wetter (:
Habe mal wieder eine Frage:
Ich möchte unten stehendes Makro verwenden, funzt soweit, aber....., was mir noch fehlt ist, dass die Arbeitsmappe OHNE das Tabellenblatt "Hilfe" gedruckt wird. Ich kriege das nicht hin, kann mir bitte jemand mitteilen, ob es geht, und wenn ja, wie?
Für Hilfe bin ich wie immer sehr ehrlich dankbar.
Gruß
Juergen
Sub Becker_HS()
' Becker_HS Makro
If MsgBox("Sollen ALLE! Mengennachweise ( Becker-HS ) gedruckt werden ?", vbYesNo + _
vbQuestion, "Druckabfrage ?") = vbYes Then
Workbooks.Open Filename:= _
"\\Server-ibm\s und c logistig\Mengennachweise\Druck-Mnw(Aktuelle-16.03.11)\Becker-HS. _
xlsm"
ActiveWorkbook.PrintOut Copies:=1
ActiveWindow.Close
Range("A11:A12").Copy Destination:=Range("G7:G8")
Else
Range("a8:a9").Copy Range("g7:g8")
MsgBox "Der Druckauftrag wurde abgebrochen"
End If
End Sub