| Forfatter |
 Emne Søg  Emne funktioner
|
Ib Hansen 
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
 Emne: Åbne og udskrive flere sider med PrintPreview
Sendt: 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 |
|
 |
|
|
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 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 
|
|
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.
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 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.
Mvh. Ib
|
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 28.Jun.2015 kl. 20:12 |
|
|
|
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.
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 28.Jun.2015 kl. 21:25 |
Ja, perfekt 
Jeg ville ønske, jeg besad sådanne VBA evner.
Tusind tak  |
|
EXCELGAARD
Platin bruger
Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5419
|
Sendt: 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 
|
|
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.
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 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 
Mvh. Ib
|
|
Ib Hansen
Guld bruger
Medlem: 15.Apr.2014
Land: Danmark
Status: Offline
Point: 652
|
Sendt: 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
|
|
Forum start
Forummets regler
Sådan uploader du filer
Marker Accepteret løsning
Del dine regneark
Excel-regneark.dk
Åbne og udskrive flere sider med PrintPreview