Brauch mal Hilfe für Druckmakro
28.01.2005 15:07:18
Jürgen
Bräuchte für dieses makro noch eine zweite Abfrage wieviel Tipscheine ausgedruckt werden sollen,
Frage was muss noch an Code eingebaut werden.
Wer kann mir den Code ins Makro einbauen
Danke
Jürgen
Sub Drucken()
Dim str As String
str = InputBox("Welcher Tipschein soll ausgedruckt werden ?")
If str = "" Then Exit Sub
If Not SheetExist("Spieltag" & str) Then
MsgBox "Tabelle nicht vorhanden!"
Exit Sub
End If
With Sheets("Spieltag" & str)
.Range("A1:DV66").RowHeight = 36
With .PageSetup
.PrintArea = ""
.PrintArea = "$A$1:$DV$66"
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
.PrintOut from:=1, to:=1
With Sheets("Spieltag" & str)
.Range("A1:DV66").RowHeight = 24
End With
End With
End Sub