Druckbereich speichern
14.03.2007 10:32:00
ganz
ich möchte den Druckbereich einer Tabelle speichern um Ihn später ausdrucken zu können.
Ich habe dazu einen "Speichern" Button mit folgendem Makro versehen.
Sub speichern4()
Application.DisplayAlerts = False
ActiveSheet.Copy
Application.DisplayAlerts = True
With ActiveWorkbook
With ActiveSheet
.Range(.Columns(9), .Columns(Columns.Count)).Delete
.Range(.Rows(51), .Rows(Rows.Count)).Delete
.PageSetup.FitToPagesWide = 1 ' nur weegen der Kontonummern nötig
End With
.SaveAs Filename:="C:\Mandantenbriefe\" & Range("A26") & Range("A13") & ".xls"
.Close
End With
End Sub
Soweit klappt alles.
Wenn ich den Druckbereich sofort ausdrucke klappt alles.
Wenn ich aber die Datei aufrufe in der ich gespeichert habe, dann sind einige Zellen leer und dort steht Bezug.
zum zweiten:
ich würde den Druckbereich lieber im Wordformat speichern, ändere ich aber das Makro auf &".doc", dann kann Word den Druckbereich nicht darstellen und es werden nur Hieroglyphen angezeigt.
kann mir da jemand helfen?
Danke im voraus und Gruß aus Bonn
Ralf