Hjælp til udskriftmakro

Kunne det ikke være en ide at glemme alt om det skjulte ark og istedet lægge de 6 linier som er i det skjulte ark ind i de øverste 6 linier i det ark du bruger.

Herefter sørger du for at udskrive linie 1-6 øverst på alle sider (under sidelayout)
Herefter skjuler du linierne 1-6 og bruger nedenstående makro.

Så har du ingen problemer med at få det til at passe med de enkelte sider.

Sub udskrift2()
Application.ScreenUpdating = False
    Rows("1:6").Select
    Selection.EntireRow.Hidden = False
   
    ActiveWindow.SelectedSheets.PrintPreview
    Rows("1:6").Select
    Selection.EntireRow.Hidden = True

Application.ScreenUpdating = True
End Sub

Hvis jeg vælger din løsning, vil formateringe af arbejdsområdet så ikke påvirke de 6 øverste linier?
Hvordan skjuler du de 6 linier?

Du skjuler de 6 linier ved at markere linie 1-6 og derefter højre klikke med musen.
Så vælger du skjul. og så er de væk.


makroen klarer resten.

Du skal huske at få arket til at vise linie 1- 6 øverst på alle sider, under sidelayout.

Jeg kan ikke umiddelbart se at formateringen skulle blive påvirket.

Når jeg f.eks. ændre kolonnebredden, så påvirker den også de 6 linier og det var det som jeg ville undgå ved at placere dem på en anden side.

ja, så kan jeg ikke lige være med.
Men kunne du så ikke bare flette nogle celler eller lignende og få det til at står korrekt.

Eller er det fordi du løbende skifter bredde i kolonnerne?

lytter med

Der bliver ændret en hel del på kolonnebredden undervejs afhængig af hvilken opgave der skal løses. Det er derfor at jeg har brug for at kunne kominere to worksheets i udskriften.

kombinere selvfølgelig

Ja, så står jeg desværre af.
Men mon ikke der er nogle af VBA hajerne herinde der kan hjælpe.
De plejer at kunne klare næsten alt.

Venter spændt på at se om der kommer en løsning

Det gør der vist desværre ikke, så jeg lukker spørgsmålet, men tak for indsatsen alligevel.
god weekend :=)