Print side | Luk vindue

Åbne og udskrive flere sider med PrintPreview

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=2153
Udskrevet den: 27.Nov.2024 kl. 06:23


Emne: Åbne og udskrive flere sider med PrintPreview
Besked fra: Ib Hansen
Emne: Åbne og udskrive flere sider med PrintPreview
Posteringsdato: 28.Jun.2015 kl. 13:42
Hej Forum.

Ved hjælp af en UserForm.CheckBox sætter jeg værdien "SAND" i en celle.
Jeg har 12 CheckBoxe = 1 for hver måned.
Hvis celle-værdien er = "SAND", skal den definere et PrintArea.

Afhængig af om værdien er = "SAND" i de 12 definerede celler, skal det skal være muligt at vise flere PrintArea, når PrintPreview åbnes.
Og herefter at udskrive alle de valgte Area's på en gang, hvilket jo gøres fra Preview funktionen.

Jeg formoder, jeg skal definere koden med Next for hvert PrintArea, men er kørt fast.
Kan nogen hjælpe ?

På forhånd tak.

Mvh.
Ib

Private Sub CommandButton1_Click()
    
    Sheets(13).Select
    
'Print Juni
    If Range("AC9").Value = "SAND" Then PageSetup.PrintArea = "C6:V41"

'Print Juli
    If Range("AC45").Value = "SAND" Then PageSetup.PrintArea = "C42:V78"

'Print August
    If Range("AC83").Value = "SAND" Then PageSetup.PrintArea = "C80:V116"
    
    Unload Me
    ActiveSheet.PrintPreview
    
End Sub


Svar:
Besked fra: EXCELGAARD
Posteringsdato: 28.Jun.2015 kl. 16:53
Jeg er ikke 100% sikker på, at jeg er helt med, men du kan jo godt definere flere uafhængige områder i dine regneark, der er en del af udskriftsområdet, blot du adskiller disse med et komma, f.eks.: 
PageSetup.PrintArea = "C6:V41,C80:V116"
PS: Det kan forøvrigt godt være, at man i en dansk Excel skal bruge semikolon (;) i stedet for komma (,) til at adskille områderne - prøv dig frem Smile


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Ib Hansen
Posteringsdato: 28.Jun.2015 kl. 17:48
Hej Excelgaard.

Forklaring til det vedhæftede.

- De 3 knapper udskriver hver sin side.

- Knappen "Vælg flere" åbner userform, hvor flere kan vælges på en gang.

- Koden (der ikke kører), står under knappen "Udskriv" i userformen.

- Resultatet skulle gerne være, at få en udskrift af det valgte og på hver sin side.


uploads/1125/Test_udskriv_flere_sider.xlsm" rel="nofollow - uploads/1125/Test_udskriv_flere_sider.xlsm

Mvh.
Ib

Besked fra: EXCELGAARD
Posteringsdato: 28.Jun.2015 kl. 20:12
Noget i denne stil?

uploads/732/Adskilt_udskriftsomraade.XLSm" rel="nofollow - uploads/732/Adskilt_udskriftsomraade.XLSm

-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Ib Hansen
Posteringsdato: 28.Jun.2015 kl. 21:25
Ja, perfekt Clap

Jeg ville ønske, jeg besad sådanne VBA evner.

Tusind tak Big smile

Besked fra: EXCELGAARD
Posteringsdato: 28.Jun.2015 kl. 21:38
Du er godt på vej, Gnaske, du er godt på vej - og, vi bor jo kun 15 km. fra hinanden, så der er da belæg for en Excel/grill søndag i løbet af sommeren, hvis der er noget du gerne vil have gennemgået Cool


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Ib Hansen
Posteringsdato: 29.Jun.2015 kl. 08:58
Hmmmm... Jeg sidder og flicker en masse sammen, jeg finder på nettet og det er slet ikke sat op efter gældende VBA normer.
Men selvom det ikke er kønt, får jeg meget til at virke alligevel !!

Det lyder rigtigt godt med en Excel/Grill søndag - Jeg må prøve at finde tid Wink

Mvh.
Ib

Besked fra: Ib Hansen
Posteringsdato: 03.Jul.2015 kl. 10:36
Hej Excelgaard.

Kan du cracken den her, ville jeg blive meget glad ?
/udskriv-flere-sider-med-2-omrder-med-printpreview_topic2160.html"/udskriv-flere-sider-med-2-omrder-med-printpreview_topic2160.html

Mvh.
Ib


Print side | Luk vindue