Excel: 1 werkblad 2 bereiken/pagina's

[key]

Ik heb een Excelbestand gemaakt bestaande uit 1 werkblad.
Nu wil ik dat als mensen het werkblad vullen en op print drukken ze dit werkblad als volgt geprint krijgen:
Pagina 1:
Cel A1:I31

Pagina 2
cel A32:I38

Ik heb google gebruikt en kom op macro's terecht welke bij mij niet werken. Wellicht door mijn gebrek aan kennis van macro's.

[XSDF]

Mits je Excel 2007 gebruikt, kan je via het menu "view" naar "Page Break View" gaan en dan kan je daar het te printen gebied instellen.

Hier kun je dan de pagina indeling slepen naar de juiste grootte.

Indien je een eerdere versie hebt, heet het waarschijnlijk hetzelfde, echter misschien kun je met page break view dan verder google.

succes ermee

[MAX3400]

Doe het eens andersom?

Hier in Excel 2003 net getest en met het "Opnemen van een nieuwe macro" en daarna data selecteren en printen, krijg ik gewoon netjes een macro die later dezelfde range weer uitprint.

[ajakkes]

Het probleem van TS is dat zijn 2 pagina's niet op elkaar aansluiten. De bereiken liggen dus een stukje uit elkaar. Voor zover ik weet kan dit niet in Excel.

Waarschijnlijk heb je hiervoor gekozen omdat de celbreedte en celhoogte van de twee pagina's nogal verschillend zijn.

Mogelijke oplossingen (volgens mij):
* Pas doormiddel van cellen samenvoegen de pagina's zo aan dat of de celhoogten gelijk zijn of de celbreedte.
* Zet het tweede deel op een apart tabblad. Geef de twee tabbladen een duidelijke naam en kleur en gooi niet gebruikte tabbladen weg. Voeg eventueel een beschrijving toe dat er bij printen de hele werkmap geprint moet worden en niet de huidige sheet.

[MAX3400]

ajakkes schreef op woensdag 12 januari 2011 @ 09:57:
Het probleem van TS is dat zijn 2 pagina's niet op elkaar aansluiten.

Waar lees je dat?

Trouwens, ik heb net met mijn non-Office-kennis even wat getest

code:

    Range("A1:I31,A32:I38").Select
    Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

Zal wel aan mijn installatie liggen ofzo maar de 2 ranges komen elk op een apart A4tje uit de printer?

[key]

Ik heb de volgende macro in ThisWorkbook staan:
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Range("B24,C24")
.Font.ColorIndex = 2
Application.OnTime Now, "Workbook_AfterPrint"
End With
End Sub

Sub Printen()
Range("A1:I31,A32:I38").Select
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
End Sub

Hier print ie alleen A1:I31

[F_J_K]

Kan je er niet 'gewoon' twee losse printjobs van maken?

Visual Basic:

Range("A1:I31").PrintOut Copies:=1, Preview:=True, Collate:=True
Range("A32:I38").PrintOut Copies:=1, Preview:=True, Collate:=True

Of zonder preview (of een van de tips van ajakkes in "Excel: 1 werkblad 2 bereiken/pagina's" volgen), natuurlijk.

offtopic:
Code is veel beter leesbaar als je het even tussen tags zet.

[ Voor 15% gewijzigd door F_J_K op 12-01-2011 11:19 ]

[key]

Op een of andere maniet werken de VB scriptjes niet met mijn Excel (2003).
Ik kan aardig wat in Excel maar VB etc. gaat mij nog wat ver. De kennis is heel basis. Wellicht zet ik iets in een foute blad als ik VB open vanuit Excel?
In Blad1 (invoer) en ThisWorkbook geprobeerd.

Een 2de tabblad is geen optie gezien deze niet gevuld zal gaan worden door de mensen die het gaan gebruiken. Helaas mag ik daar ervaring mee hebben.

[Reptile209]

Voer je wel je macro uit als je wil printen, of zit je nu gewoon op de normale print-knop te rammen? Want je sub Printen() wordt niet automagisch aangeroepen, zoals je nu misschien verwacht.

[key]

Dat zal het probleem zijn. Ik kan natuurlijk een knop maken waaronder ik dit hang.
Dan de collega's er duidelijk op wijzen dat ze deze knop moeten gebruiken ipv de normale printknop.
Een automatische aanroeping, zoals bij mijn eerder sciptje waarbij het bij het printen 2 cellen wit maakt, is dus niet mogelijk begrijp ik?

Maakt het wel een stuk helderder voor me.

[Reptile209]

Jawel, dat is wel mogelijk. Dan moet je deze macro (die je nu in de Printen()-sub hebt staan) aan het print-event hangen via de Workbook_BeforePrint die je al gebruikt. Je moet er dan wel even voor zorgen dat het 'normale' printcommando gecancelled wordt, door Cancel op True te zetten. Zie ook deze MSDN-pagina.

[key]

Het gaat nog makkelijker. Ik denk te moeilijk.
Voeg een lege rij toe onder rij 31, wordt dus 32
Ik selecteer A1 t/m I31
Ctrl in houden en selecteer A33 t/m I39
Kies dan Bestand-> afdrukbereik -> afdrukbereik bepalen

Werkt prima. Geen scriptje nodig.

bedankt voor jullie meedenken!

[ Voor 6% gewijzigd door key op 12-01-2011 13:01 ]

[ajakkes]

Ah, dan heb ik weer wat geleerd.