Exel nicht einfach auf den Standart Drucker
druckt, sondern die Printerauswahl bringt
wie mit Strg+P
Code:
Sub DruckenFaxen()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Zweite Frage :
Wie muss dieser Code abgeändert werden damit nicht
das Geasammte Blatt Copiert wird sondern nur von
Zelle A3 bis AK56 ?
Code:
Public Sub Blattkopie()
Dim Anzahl As Byte, Tabelle As Worksheet, Adresse As String
With Application
.ScreenUpdating = False
.ShowWindowsInTaskbar = False
End With
ActiveSheet.Copy
ActiveSheet.Unprotect "bes"
ActiveSheet.UsedRange.Cells.Value = ActiveSheet.UsedRange.Cells.Value
ActiveSheet.Protect "bes"
ActiveWorkbook.SaveAs Filename:= _
"D:\Berechnungen\" & Range("E7") & Format(Now, " hh-dd.mm.yy") & ".xls"
ActiveWorkbook.Close False
With Application
.ScreenUpdating = True
.ShowWindowsInTaskbar = True
End With
End Sub
Many THX Bernd