Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
Screenshot zu CommandButton	CommandButton-Seite mit Beispielarbeitsmappe aufrufen

UF ausdrucken

• UF ausdrucken von walter mb vom 07.11.2014 12:17:09
• Hab was gefunden -) - von walter mb am 07.11.2014 15:34:27

Betrifft: UF ausdrucken von: walter mb
Geschrieben am: 07.11.2014 12:17:09

Guten Morgen,
habe dieses Makro im Netz gefunden, wollte jetzt im
Querformat drucken, geht nicht.
Kann man jemand schauen, was ich da ändern muss ?
Danke im
Voraus
walter mb

Public Sub CommandButton3_Click()
Application.ScreenUpdating = False
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
Me.Zoom = 80
Me.PrintForm                                        'drucken
Me.Zoom = 100                                       'anschließend hochsetzen
Application.ScreenUpdating = True
       ' .Orientation = xlPortrait                  ' für Hochformat
       ' .Zoom = 63
       ' .Orientation = xlLandscape                 ' für Querformat
       ' .Zoom = False                              ' Anpassen

End Sub

Betrifft: Hab was gefunden -) von: walter mb
Geschrieben am: 07.11.2014 15:34:27

Hallo zusammen,
hab was gefunden, allerdings habe ich dies ergänzt und funktioniert.

Private Sub CommandButton3_Click()
Dim oSheet As Worksheet
Application.DisplayAlerts = False
Set oSheet = ActiveSheet
With Worksheets.Add
    ScreenCopy True
    Me.Hide
    .Cells(1, 1).PasteSpecial
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
        .PrintPreview
    .Delete
    Me.Show
End With
oSheet.Activate
Application.DisplayAlerts = True
End Sub

Aus Forum 76831.xls

mfg
Walter mb