Druck Makro (noch nicht ganz fertig )
27.12.2004 14:05:40
Jürgen
Bin noch Anfänger und habe mir ein makro mit Rekorder und schlechten VBA Kentnissen zusammengebastelt.
Läuft soweit auch, möchte dieses makro aber nicht immer vom aktiven Sheet ausführen müssen, sonndern von der Hauptseite über ein Druckbutton.
Was muss im Makro noch verändert werden damit ich über dem Button den ausgewählten Tipschein ausdrucken kann.
Hier mein wohl schlecht zusammengebasteltes Makro
Sub Drucken()
Dim str As String
str = InputBox("Welcher Tipschein soll ausgedruckt werden ?")
If str = "" Then Exit Sub
On Error Resume Next
With Sheets("Spieltag" & str).Range("A1:DV66").Select
ActiveWindow.LargeScroll ToRight:=1
Selection.RowHeight = 36
With ActiveSheet.PageSetup
.PrintArea = ""
.PrintArea = "$A$1:$DV$66"
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
ActiveSheet.PrintOut from:=1, to:=1
End With
End Sub
Wer kann mir bitte mal helfen?
Danke im vorraus
Jürgen