Forskellige sideretninger i samme ark

kræver vist en nærmere forklaring :-)

Jeg har set spørgsmålet før herinde, men kan ikke huske løsningen.
Hvis jeg har forstået spørgsmålet rigtig, så ønskes f.eks. side 1, 2 og 3 udskrevet liggende, mens f.eks. side 4, 5 og 6 skal udskrives stående.

Jeg prøver om jeg kan finde det gamle spørgsmål med løsningen.  :-)

Hvis der skal udskrives forskellige områder i samme ark.

Lægges i et modul:

Sub Udskrivliste()

Application.ScreenUpdating = False
    With ActiveSheet.PageSetup

          .PrintArea = "$C$4:$N$76"                                  'Udskriftområde
        .Zoom = 67                                                  'Zoom 110%
        .CenterHorizontally = True                                  'Centrer udskrift
        .Orientation = xlPortrait                                  'Stående
        .FitToPagesWide = 1                                        'Tilpas til 1 side i bredden
        .FitToPagesTall = 1                                        'Tilpas til 1 side i højden
        .RightMargin = Application.InchesToPoints(0.3)              'Angiver Højre margen
        .TopMargin = Application.InchesToPoints(0.3)                'Angiver Top margen
        .BottomMargin = Application.InchesToPoints(0.3)            'Angiver Bund margen
        .LeftMargin = Application.InchesToPoints(0.3)              'Angiver Venstre margen
        .PaperSize = xlPaperA4                                      'Angiver papirstr. til A4

    End With

   

    'ActiveSheet.PrintOut ActivePrinter:="HP Laser Jet 5"          'Valg af bestemt printer
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Udskriv 1 kopi
    ActiveWindow.SelectedSheets.PrintPreview

  Application.ScreenUpdating = True

End Sub

'Og en ande der er lodret og A5

Sub UdskrivListe2()

Application.ScreenUpdating = False
    With ActiveSheet.PageSetup

       
        .PrintArea = "$T$107:$AB$130"
        .Zoom = 100
        .Orientation = xlPortrait
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .RightMargin = Application.InchesToPoints(0.3)
        .TopMargin = Application.InchesToPoints(0.3)
        .BottomMargin = Application.InchesToPoints(0.3)
        .LeftMargin = Application.InchesToPoints(0.4)
        .PaperSize = xlPaperA5
   
    End With
    'ActiveSheet.PrintOut ActivePrinter:="HP Laser Jet 5"          ' Valg af bestemt printer
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True  ' Udskriv 1 kopi
    ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True

End Sub

vejmand - det er rigtig forstået. Jeg har følgende i arket:
Side 1: A1-L26
Side 2: A27-L50
Side 3: M1-Z26
Side 4: M27-Z50

Jeg vil så gerne lave en lodret side 5, startende i AA1

rosco> Inden jeg forsøger med din løsning, så lad mig høre om den har sammenhæng med mit spørgsmål. (Jeg er ikke god til makro-løsninger)

Den ene skal selvfølgelig være:

.Orientation = xlLandscape

ps. Side 5 kunne også starte i f.eks. A51 - hvis det er bedre for løsningen

Det var det faktisk.
Ved hjælp af den makro kan du styre hvad og hvordan det skal udskrives, papirstr.  papirretning osv.
Den skal blot rettes til.

For mig er det ikke noget, man BLOT retter til. Men jeg prøver, og vender tilbage :-)

Denne skulle udskrive side1 liggende


Sub UdskrivSide1()

Application.ScreenUpdating = False
    With ActiveSheet.PageSetup

          .PrintArea = "$A$1-$L$26"                                  'Udskriftområde
        .Zoom = 100                                                  'Zoom 110%
        .CenterHorizontally = True                                  'Centrer udskrift
        .Orientation = xlLandscape                                  'Liggende
        .FitToPagesWide = 1                                        'Tilpas til 1 side i bredden
        .FitToPagesTall = 1                                        'Tilpas til 1 side i højden
        .RightMargin = Application.InchesToPoints(0.3)              'Angiver Højre margen
        .TopMargin = Application.InchesToPoints(0.3)                'Angiver Top margen
        .BottomMargin = Application.InchesToPoints(0.3)            'Angiver Bund margen
        .LeftMargin = Application.InchesToPoints(0.3)              'Angiver Venstre margen
        .PaperSize = xlPaperA4                                      'Angiver papirstr. til A4

    End With

   

    'ActiveSheet.PrintOut ActivePrinter:="HP Laser Jet 5"          'Valg af bestemt printer
    'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True 'Udskriv 1 kopi
    ActiveWindow.SelectedSheets.PrintPreview

  Application.ScreenUpdating = True

End Sub

Jeg kan godt se idéen med det. Men er det meningen, at jeg skal udskrive de 5 sider hver for sig? Jeg skal helst kunne udskrive siderne til en samlet pdf-fil - med alle 5 sider, og med sidenr. i foden.

Min løsning udskriver 1 side af gangen det er det jeg har brugt den til.
Men alle siderne til en PDF fil, det har jeg ikke lige løsningen på her og nu.
Mon ikke en af de andre har et bud på det.

Kunne dette hjælpe dig på vej.

http://www.eksperten.dk/spm/517945

rosco lægger du et svar,så jeg kan få lukket

Jeg lukker.

Undskyld; jeg havde glemt dette indlæg.