udskrive to områder(på forskellige faner!) på én side

Det er ikke nødvendigt med VBA.

1) Definer hvilke to områder, der skal skrives ud ved at markere dem og klik på 'Filer' => 'Udskrifsområde' => 'Angiv udskriftsområde'
2) Klik på Filer => Udskriv
3) I nederste venstre hjørne vælger du 'Udskriftsområde' => 'Hele projektmappen'
4) Klik på 'Egenskaber' ved siden af printernavnet
5) Vælg fanebladet 'Færdigbehandling'
6) Vælg "2 sider pr. ark"

De fleste printere har denne feature. Hvis ikke det virker må du gerne skrive igen. Så finder jeg dem hjemmeside, hvor tippet var på. Der lå nemlig også en makro, der kunne ordne det

ahh... Sådan :-)

Men jeg kunne godt tænke mig at udskrivningen kunne bliver liggende, altså således at sideskiftet kommer midt på den lange side
____________________
|                                            |
|                                            |
|---------------------------------|
|                                            |
|                                            |
L--------------------------------J

Ved ikke om det kan lade sig gøre - Har prøvet at ligge dokumentet ned...?

Skulle lige rode lidt i gamle filer, men fandt denne som du skal indsætte som makro (Alt+F11). Klik herefter 'Insert => Module i øverste værktøjslinie

Sub PrintPaaEnSide()
    Dim wshTemp As Worksheet, wsh As Worksheet
    Dim rngArr() As Range, c As Range
    Dim i As Integer
    Dim j As Integer

    ReDim rngArr(1 To 1)
    For Each wsh In ActiveWorkbook.Worksheets
        i = i + 1
        If i > 1 Then  ' resize array
            ReDim Preserve rngArr(1 To i)
        End If

        On Error Resume Next
        Set c = wsh.Cells.SpecialCells(xlCellTypeLastCell)
        If Err = 0 Then
            On Error GoTo 0

            'Prevent empty rows
            Do While Application.CountA(c.EntireRow) = 0 _
              And c.EntireRow.Row > 1
                Set c = c.Offset(-1, 0)
            Loop

            Set rngArr(i) = wsh.Range(wsh.Range("A1"), c)
        End If
    Next wsh

    'Add temp.Worksheet
    Set wshTemp = Sheets.Add(after:=Worksheets(Worksheets.Count))

    On Error Resume Next
    With wshTemp
        For i = 1 To UBound(rngArr)
            If i = 1 Then
                Set c = .Range("A1")
            Else
                Set c = _
                  ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
                Set c = c.Offset(2, 0).End(xlToLeft)  'Skip one row
            End If

            'Copy-paste range (prevent empty range)
            If Application.CountA(rngArr(i)) > 0 Then
                rngArr(i).Copy c
            End If
        Next i
    End With
    On Error GoTo 0

    Application.CutCopyMode = False ' prevent marquies

    With ActiveSheet.PageSetup    'Fit to 1 page
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

    'Preview New Sheet
    ActiveWindow.SelectedSheets.PrintPreview

    'Print Desired Number of Copies
    i = InputBox("Hvor mange kopier skal printes?", "Tips", 1)
    If IsNumeric(i) Then
        If i > 0 Then
            ActiveSheet.PrintOut Copies:=i
        End If
    End If

    'Delete temp.Worksheet?
    If MsgBox("Slet imidlertidig faneblad?", _
      vbYesNo, "Tips") = vbYes Then
        Application.DisplayAlerts = False
        wshTemp.Delete
        Application.DisplayAlerts = True
    End If
End Sub


Den opretter et nyt imidlertid regneark og viser udskrift.
I udskrift vælger du liggende og klikker på Luk. Vælg antal kopier og til sidst bliver du spurgt om det midlertidige regneark skal slettes

Sidst jeg brugte den virkede den fint :-)

ps: jeg har ikke selv "opfundet" den, men fundet den et eller andet sted på www

@ fxj: Tusind tak, men problemet med denne kode er at den samler det i et ark og så rykker celle bredden på den ene af skemaerne og den udskriver stadig kun stående ovenpå hinanden...

Dit 1. forslag er nok bedst:-)

Endelig klarede jeg det med at få dem ovenpå hinanden ved at kopiere over i et Word Doc og sætte ind som billed og dreje billedet.

Mange tak for hjælpen :-)

Tak for point

Når makroen har kørt og du kommer i udskriftsvisning(preview= kan du der - via indstilinger - dreje papiret.

LØsningen med Word havde jeg faktisk ikke tænk på :-)