06. marts 2003 - 09:57Der er
15 kommentarer og 2 løsninger
Udskrift område, sideopsætning samt Sidehoved og bund ens ark
Hej Alle, Er der en, som har en makro, som kan gøre følgende: Jeg har en excel fil med 57 underliggende ark - alle er ens i opbygning.
I ark nummer 1, laver jeg manuelle tilpasninger, det vil sige, jeg søger for de øvre rækker udskrives på alle ark, jeg formater udskrivningsområdet, jeg sørger for udskriften ligger ned og etc. Der efter laver jeg et side hoved og en sidebund til arket - så det alt i alt ser pænt ud, når modtageren trykker på print.
Hvordan kan jeg sige til excel, at de indstillinger i ark 1 skal gælde for ALLE mine ark?
Hvis det bare skal ske én gang, kan du vel nøjes med at markere alle arkene, inden du laver din opsætning. Du skal så kun lave dine rettelser en enkelt gang, for de slår igennem på alle de markerede ark.
Jeg er for så vidt enig. Hvis det kun skal gøre én gang er der ingen grund til at lave en makro. Nu spørger Ransborg jo bare efter en makro, så det får han .... :-)
Jeg har faktisk ikke noget imod makroer - faktisk kan de være ganske geniale. Jeg er bare modstander af, at man i stedet for en enkelt formel laver en lang kode på x antal linier, medmindre, at det selvfølgelig kører hurtigere.
Det må være et eller andet med en For..Each..Next løkke der gennemløber Sideopsætningen for hvert ark i mappen. Jeg har ikke lige en makro klar, men det må være ideen.
Public Sub overskrift() For Each Ws In Worksheets Worksheets(Ws.Name).Select With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" End With ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path & "\" & " &F" Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
