Druckbereich drucken und speichern
25.04.2004 12:06:55
Volker
es wäre schön wenn jemand einen Tipp für mich hätte.
Ich erfasse Daten, markiere den Druckbereich und drucke Seite 1 drei mal.
Nun möchte ich gerne diesen Druckbereich (Rechnung) nach dem ausdruck in einer Datei speichern, ohne die Makros und zwar mit der zuvor aufgezählten Rechnungsnummer als Dateiname.
Danke Euch,
Volker
Hier mein Makro:
Sub RechDruck()
' Rechnungs Nummer um 10000 hochzählen
' Übernahme Daten aus Rechungen nach RechNummern(Liste)
' Druckbereich Seite 1 (nur Rechnung) festlegen und 2 fach Drucken
' Schritt 1
Worksheets("Rechnungen").Range("I23").Value = Worksheets("Rechnungen").Range("I23").Value + 10000
' Schritt 2
Dim laR As Long
With Sheets("RechNummern")
If .Cells(65536, 1).End(xlUp).Row + 1 > 1 Then laR = .Cells(65536, 1).End(xlUp).Row + 1 Else laR = 1
.Cells(laR, 1).Value = Sheets("Rechnungen").Range("I23").Value
.Cells(laR, 2).Value = Sheets("Rechnungen").Range("I25").Value
.Cells(laR, 3).Value = Sheets("Rechnungen").Range("G25").Value
.Cells(laR, 4).Value = Sheets("Rechnungen").Range("B14").Value
.Cells(laR, 5).Value = Sheets("Rechnungen").Range("I51").Value
End With
' Schritt 3
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=3, Collate:=True
End Sub