Bereich drucken 2
29.07.2004 15:37:21
Frank
mit den Ergebnissen meines Beitrags vom 27.07.04 war ich nicht ganz zufrieden.
Aus diesem Grund habe ich selber etwas exprimentiert. Über den Makrorecorder und Hans-Werners "Schützenhilfe" (bei dem ich mich besonders bedanken möchte!)habe ich mir mein erstes eigenes VBA-Makro zusammenstricken können.
Ich möchte hiermit jeden VBA-Anfänger dazu ermutigen, es auch mal selber zu versuchen!
Learning by doing!
Hier ist das Ergebnis:
Sub Drucken()
Sheets("Tabelle2").Select
Dim wks As Worksheet
Set wks = ActiveSheet
wks.UsedRange.Select
Sheets("Tabelle2").Select
Cells.Select
Selection.Rows.AutoFit
Selection.PrintOut Copies:=1, Collate:=True
Sheets("Tabelle1").Select
End Sub
Vieleicht kann es ja jemand gebrauchen!
mfg
Frank
Anzeige