Avatar billede sdh Mester
27. oktober 2001 - 17:33 Der er 6 kommentarer og
1 løsning

Angiv udskriftsområde på flere ark samtidig.

Hvordan angiver jeg et udskriftsområde eks. a1:b20 på flere ark samtidig.Den gængse funktion virker jo ikke når man aktivere mere end et ark ad gangen.
Håber der er nogen derude der kan hjælpe mig.

Hilsen

SDH
Avatar billede janvogt Praktikant
27. oktober 2001 - 18:14 #1
Du kan markere flere ark samtidig ved at holde CTRL-tasten ned samtidig med du trykker på arkene i bunden.
Herefter kan du markere ét eller flere områder på flere ark ad gangen.
Avatar billede janvogt Praktikant
27. oktober 2001 - 18:16 #2
Ah, jeg ser lige nu, at du skriver \"udskriftsområde\". Så virker mit forslag vist ikke.
Avatar billede janvogt Praktikant
27. oktober 2001 - 18:25 #3
I Excel 97 bliver du nødt til at angive udskriftsområdet på ét ark ad gangen.

Ellers skal du lave makro med en løkke, som kører alle arkene igennem og angiver udskriftsområdet.
Avatar billede bak Forsker
27. oktober 2001 - 20:42 #4
marker udskriftområde i \"Ark1\" og kør følgende makro:

Sub SetWorkbookAttributes()
      For Each xWorksheet In ActiveWorkbook.Worksheets
        xWorksheet.PageSetup.PrintArea = _
            ThisWorkbook.Worksheets(\"Ark1\").PageSetup.PrintArea
      Next xWorksheet
End Sub

Erstat \"Ark1\" med navnet på det du har markeret udskriftområdet i
Avatar billede sdh Mester
28. oktober 2001 - 18:10 #5
Mere præcist er det jeg har brug for at vide hvordan jeg i f.eks. 50 ark angiver udskrifts-område a1:f30 samtidig. Jeg tror selv på det kun kan løses med en makro. Så jeg ville være glad hvis der er en der kan komme med en brugbar løsning.
Avatar billede bak Forsker
28. oktober 2001 - 19:51 #6
Det er jo lige netop det min makro gør.
Du skal bare markere området på første ark som udskriftsområde, men du kan da også indsætte nedenstående makro og ændre udskriftområdet til det du har brug for. Den sætter så det valgte område ind i alle ark.
Sub SaetUdskriftomraade()
udskriftområde = \"$A$1:$f$30\"
      For Each xWorksheet In ActiveWorkbook.Worksheets
        xWorksheet.PageSetup.PrintArea = udskriftområde
      Next xWorksheet
End Sub

Avatar billede janvogt Praktikant
29. oktober 2001 - 11:32 #7
>>>sdh
Hvis du sender dit ark til mig, skal jeg lave det for dig og vedlægge en \"brugsanvisning\".

jan_vogt_hansen@hotmail.com
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester