afdrukken via een macro

[yvan79]

hallo

ik zou een bepaalde lijst met gegevens van mijn akkerbouw willen afdrukken met een macro zo'n knop (die weet ik hoe te maken alleen is de macro zelf moeilijk)
kijk de eerste pag is staand en de tweede liggend

dus als ik op de knop druk moet er eerste staand eruit komen en de ander liggend.
hoe stel je dat in?

ik zou ook 2 bladen kunnen maken, maar te laat aangedacht dan kom ik met form en verwijzinggen vast te zitten.

enige hulp is welkom merci?

 

[brandernl]

kan je een voorbeeld plaatsen?

 

[yvan79]

kan je een voorbeeld plaatsen?

ja komt eraan binnen 5 min

 

[yvan79]

kan je een voorbeeld plaatsen?

beste krijg het bestand niet geupload is meer dan 100 kb, en heb ook al is de form eruit gewist blijft te groot

concreet in werkblad boerderijalgemeen moet worden afgedrukt van a1 tot h59 staand,a66 tot h120 staand en een derde pag p1 tot aj44 liggend

kan je heir mee iets het zijn dus 3 pagina's

groet yvan

 

[brandernl]

Ik zou het afdrukken in drieën knippen,

Sub PrintElkBlad()
    Dim MyPrintRange As Range
    
    Set MyPrintRange = Range("A1:H59")
    With MyPrintRange
        ActiveSheet.PageSetup.PrintArea = .Address
    End With
    AfDrukkenstaand

Set MyPrintRange = Range("A66:H120")
    With MyPrintRange
        ActiveSheet.PageSetup.PrintArea = .Address
End With
    AfDrukkenstaand

Set MyPrintRange = Range("A66:H120")
    With MyPrintRange
        ActiveSheet.PageSetup.PrintArea = .Address
End With
    AfDrukkenliggend

End Sub

Sub AfDrukkenstaand()

With ActiveSheet.PageSetup
        .Orientation = xlPortait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub AfDrukkenliggend()

With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[yvan79]

Ik zou het afdrukken in drieën knippen,

Sub PrintElkBlad()
    Dim MyPrintRange As Range
    
    Set MyPrintRange = Range("A1:H59")
    With MyPrintRange
        ActiveSheet.PageSetup.PrintArea = .Address
    End With
    AfDrukkenstaand

Set MyPrintRange = Range("A66:H120")
    With MyPrintRange
        ActiveSheet.PageSetup.PrintArea = .Address
End With
    AfDrukkenstaand

Set MyPrintRange = Range("A66:H120")
    With MyPrintRange
        ActiveSheet.PageSetup.PrintArea = .Address
End With
    AfDrukkenliggend

End Sub

Sub AfDrukkenstaand()

With ActiveSheet.PageSetup
        .Orientation = xlPortait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Sub AfDrukkenliggend()

With ActiveSheet.PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

ga het vanavond proberen alvast bedankt

 

[Wigi]

ga het vanavond proberen alvast bedankt

En, is het ondertussen gelukt?

 

[yvan79]

ja nog niet helemaal maar weet ondertussen nu met de uitleg hoe ik het kan fiksen.

sorry voor de late reacties maar zit volop van 6 tot 22 u in de oogst van de aardappelen

bedankt


yvan