Ausdruck über VBA
15.01.2005 17:48:00
Woodmann
Habe ein Makro siehe unten.Ich möchte aber das ab Zelle B35 bis Zelle R66 neben der Zelle U2 gedruckt wird.
Hat hier vieleicht jemand eine Lösung ? Danke an alle.
Sub DruckTaschenkalender()
Application.ScreenUpdating = False
Rueckfrage = MsgBox("Soll der Kalender auf Taschenkalenderformat gedruckt werden ?" & Chr(10) & "(Kleinste Auflösung)", 36, "1 Seite Drucken")
If Rueckfrage = vbYes Then
ActiveSheet.PageSetup.PrintArea = "$B$1:$T$68"
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.590551181102362)
'.PrintQuality = -4
.CenterHorizontally = False
.CenterVertically = True
.Orientation = xlPortrait
.Order = xlDownThenOver
.Zoom = 25 'hier wirds geändert, eingestellt 55
End With
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1
Else
Exit Sub
End If
End Sub