Macro Printen Meer pagina's toevoegen

[blackjoen]

Hallo allemaal,

Voor mijn werk probeer ik een bestaand excel bestand aan te passen, zodat deze voor ons beter werkt. (Het bestand is ons aangedragen door het hoofdkantoor en ik wil 'm specifiek maken voor onze vestiging).

Nu is het zo dat ik van alle tabbladen die ik wil gebruiken, maar 2 pagina's kan printen, terwijl ik er meer pagina's van wil maken (5 om precies te zijn).
Ik vroeg mij af of iemand mij daarmee kan helpen, aangezien ik zelf een redelijk noob ben met excel en macro's. De macro's die gebruikt zijn voor het printen zijn als volgt:

Sub Print_Maandag()
'
' Print_Maandag Macro
'

'
Sheets("Ma").Visible = True
Sheets("Ma").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Ma").Select
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select

End Sub
Sub Print_Dinsdag()
'
' Print_Dinsdag Macro
'

'
Sheets("Di").Visible = True
Sheets("Di").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Di").Select
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select
End Sub
Sub Print_Woensdag()
'
' Print_Woensdag Macro
'

'
Sheets("Wo").Visible = True
Sheets("Wo").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Wo").Select
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select
End Sub
Sub Print_Donderdag()
'
' Print_Donderdag Macro
'

'
Sheets("Do").Visible = True
Sheets("Do").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Do").Select
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select
End Sub
Sub Print_Vrijdag()
'
' Print_Vrijdag Macro
'

'
Sheets("Vr").Visible = True
Sheets("Vr").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Vr").Select
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select
End Sub
Sub Print_Zaterdag()
'
' Print_Zaterdag Macro
'

'
Sheets("Za").Visible = True
Sheets("Za").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Za").Select
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select
End Sub
Sub Print_Zondag()
'
' Print_Zondag Macro
'

'
Sheets("Zo").Visible = True
Sheets("Zo").Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Zo").Select
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select
End Sub
Sub Print_Hele_Week()
'
' Print_Hele_Week Macro
'

'
Sheets("Startblad").Select
Sheets("Ma").Visible = True
Sheets("Ma").Select
Sheets("Di").Visible = True
Sheets("Di").Select
Sheets("Wo").Visible = True
Sheets("Wo").Select
Sheets("Do").Visible = True
Sheets("Do").Select
Sheets("Vr").Visible = True
Sheets("Vr").Select
Sheets("Za").Visible = True
Sheets("Za").Select
Sheets("Zo").Visible = True
Sheets(Array("Ma", "Di", "Wo", "Do", "Vr", "Za", "Zo")).Select
Sheets("Ma").Activate
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets(Array("Ma", "Di", "Wo", "Do", "Vr", "Za", "Zo")).Select
Sheets("Vr").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("E5").Select
End Sub

Er zijn ook nog eventueel macro's voor andere doeleinden, maar volgens mij hebben die niks met het printen te maken.
Wat ik dus graag wil is dat ik van elke tab (ma,di,wo,do,vr,za,zo) minstens 5 pagina's kan uitprinten?

Wie kan mij helpen,

Groetjes,
Jeroen

 

[VenA]

Ligt het niet aan je afdrukbereik? Anders graag even een voorbeeldje posten.

 

[blackjoen]

Voor zover ik weet niet, ik heb mijn afdrukbereik namelijk op entire workbook staan en dan nog krijg ik maar 2 pagina's
en andere documenten wil die ook gewoon meer dan 2 pagina's afdrukken dus het lijkt me niet dat het daardoor komt. Ik heb zelfs geprobeerd een nieuwe tab te maken met daarin de gegevens die ik in de map 'ma' had gestopt en dan zou die 'm wel meerdere pagina's pakken.

Ik denk dat ik het probleem al heb verholpen. Zat inderdaad in de print area zo te zien. Dank je wel voor het meedenken in ieder geval.

 

[snb]

Op het hoofdkantoor lijkt het kennisnivo niet veel hoger dan jouw zelfinschatting.