printmacro

[Maik]

Is het mogelijk om de paginainstelling van het papierformaat (A3 of A4) en de orientatie (liggend of staand) middels een macro te laten uitvoeren.
Het papierformaat staat in cel M1, de orientatie staat in cel N1
Dank, Maik

 

[mddickie]

Is het mogelijk om de paginainstelling van het papierformaat (A3 of A4) en de orientatie (liggend of staand) middels een macro te laten uitvoeren.
Het papierformaat staat in cel M1, de orientatie staat in cel N1
Dank, Maik

Sub Macro1()
    
 Formaat = Cells(1, 13).Value
 Orientatie = Cells(1, 14).Value
 
 ActiveSheet.PageSetup.PrintArea = ""

 With ActiveSheet.PageSetup

    Select Case Formaat
        Case "A3"
           .PaperSize = xlPaperA3
        
        Case "A4"
           .PaperSize = xlPaperA4

        Case Else
        Foutmelding = MsgBox("Waarde " & Formaat & " niet gekend", vbOKOnly)
        Exit Sub
    End Select
        
    Select Case Orientatie
        Case "staand"
            .Orientation = xlPortrait
        
        Case "liggend"
            .Orientation = xlLandscape

        Case Else
        Foutmelding = MsgBox("Waarde " & Orientatie & " niet gekend", vbOKOnly)
        Exit Sub
    End Select
        
  End With
    
End Sub

Kun je hiermee verder?

 

[Maik]

Werkt geweldig, bedankt mddickie