Code Erweiterug
02.03.2004 18:36:50
Dieter
ich möchte den unten stehenden Code erweitern es soll vor dem Drucken von Blatt1, noch ein bestehndes Arbeitsblatt mit dem Namen " Gesamt" was aber Ausgeblendet ist gedruckt werden.
Wie füge ich den Druckbefehl so ein damit erst das TB " Gesamt" und danach die TB " Blatt1" gedruckt wird.
Gruss Dieter
Sub Blatt1Kopieren()
Dim strPath As String
Dim strName As String
Dim strWert As String
Dim shp As Shape
ActiveSheet.Unprotect
strPath = "C:\Winnt\Profiles\xflb21\Eigene Dateien\Sicherung_xls\" 'Pfad
strName = ActiveSheet.Name 'Tabellenname
strWert = ActiveSheet.Range("A1") 'Dateiname - zusatz
Application.ScreenUpdating = False
ActiveSheet.Copy
With ActiveWorkbook
For Each shp In Sheets(1).Shapes 'Schaltflächen entfernen
shp.Delete
Next
With .VBProject.VBComponents(.VBProject.VBComponents(2).CodeModule).CodeModule
.DeleteLines 1, .CountOfLines
End With
.Sheets(1).Cells.Locked = True 'Zellen sperren
.Sheets(1).Protect "test" 'Blattschutz setzen - Passwort anpassen
.SaveAs strPath & strName & " " & Format(Date, "dd-mm-yy") & " " & _
strWert & ".xls"
MsgBox " Kopie von " & strName & " " & strWert & " wurde angelegt "
MsgBox " Das Blatt 1 wird nun gedruckt 1 Kopie"
.Close
End With
Application.ScreenUpdating = True
ActiveSheet.Protect
Sheets("Blatt1").Select
ActiveSheet.Unprotect
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "$A$1:$AD$40"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=Tr
Range("K3:M3,Q3,A7:AD31,F34:H40,R35:R40,Y34") = ""
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub