excel schließen

Sub als_PDF_speichern_und_Excel_schließen()
Dim Heute
Heute = Now
Heute = Replace(Heute, ":", "'")
Sheets("Tabelle1").Select
Dim s As String
ActiveSheet.Copy
ActiveSheet.Name = Heute
s = ActiveSheet.Name
Dim lngRow As Long
With Worksheets(1)
If Application.WorksheetFunction.CountA(.Cells) > 0 Then
lngRow = .Cells.Find(What:="*", After:=.Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End If
End With
Dim intCol As Integer
With Worksheets(1)
If Application.WorksheetFunction.CountA(.Cells) > 0 Then
intCol = .Cells.Find(What:="*", After:=.Range("A1"), _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End If
End With
Range(Cells(1, 1), Cells(lngRow, intCol)).Select
Application.ActivePrinter = "PDF Writer (GhostScript) auf RPT1:"
Selection.PrintOut Copies:=1, ActivePrinter:= _
"PDF Writer (GhostScript) auf RPT1:", Collate:=True
Application.Wait Now + TimeValue("00:00:05")
SendKeys "%s" & "G:\TEAM\Katja\Sicherungsdateien\" & s & ".pdf{Enter}"
Application.Wait Now + TimeValue("00:00:10")
Application.ActivePrinter = "HP LaserJet 4100 Series PS auf LPT3:"
ActiveWorkbook.Close SaveChanges:=False
Workbooks("Entwurf.xls").Close SaveChanges:=True
Application.Quit
Set ActiveWorkbook = Nothing
Set Workbooks("Entwurf.xls") = Nothing
End Sub