27. oktober 2001 - 17:33Der 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.
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
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.
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
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.
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
>>>sdh Hvis du sender dit ark til mig, skal jeg lave det for dig og vedlægge en \"brugsanvisning\".
jan_vogt_hansen@hotmail.com
Synes godt om
Ny brugerNybegynder
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.