Makro til print af forskellige opsætninger

Du prøve med den her. du skal angive printområdet i arket.
du kan kopier den og ændre xlpaperA3 til A4


Sub print_A3()
Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = "PRINT AREA"
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
    .PaperSize = xlPaperA3
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
    End With
End Sub

Hej

Tak for dit svar - jeg er dog ikke helt sikker på det var nøjagtigt det jeg søgte (medmindre jeg har misforstået det)

For hvis ovenstående skal virke skal jeg jo angive et printområde - min udfordringer er, at der er 2 forskellige printområder i samme ark, som skal printes som henholdsvis A3 og A4?

Hej igen.
du har to knapper.
du kopier macroen så du har to og assigner dem til hverv sin.

du angiver printområdet i:
ActiveSheet.PageSetup.PrintArea = "PRINT AREA"
f.eks. "A1:I45"

Du angiver ønsket output:
.PaperSize = xlPaperA3
eller
.PaperSize = xlPaperA3

du kan uploade din fil til en af div. tjenester og sende mig linket så kan jeg prøve at kigge lidt mere på det.
vh. Loke

Hej Loke

Nu tror jeg dælme at det virker :)

Smid lige et svar igen, så skal du få dine point

Tak for hjælpen

Mvh. Brian

Fedt manner :-)