Een sheet printen voor een andere sheet

[ZwaluweJason]

Hey,

We zijn op zoek naar een manier waarop we sheet 1 kunnen printen voor sheet 2 of 3..
De bedoeling is dat we generale informatie op sheet 1 hebben die dan mee word geprint zodra dat we sheet 2 printen of sheet 3 of sheet 4..
Is dit mogelijk? En hoe?

 

[edmoor]

Met een voorbeeld document kan er een stukje VBA voor worden gemaakt.

 

[ZwaluweJason]

Voorbeeld

Hier als voorbeeld zit in blad 1 alle algemene informatie.
In blad 2, 3 en 4 staan de andere onderdelen welke uitgeprint moeten worden met blad 1 ervoor.

Bekijk bijlage Voorbeeld.xlsx

 

[edmoor]

Op blad 2, 3 en 4 een knop maken met dit er achter:

Private Sub CommandButton1_Click()
    Afdrukken (ActiveSheet.Name)
End Sub

En dit in een module:

Sub Afdrukken(Blad As String)
    Sheets(Array("Blad1", Blad)).PrintPreview [COLOR="#008000"]'Of .PrintOut[/COLOR]
    ActiveSheet.Select
End Sub

Bekijk bijlage Kopie van Voorbeeld.xlsm

 

[HSV]

Dit lijkt me ook voldoende.

Sub Afdrukken()
  Sheets(Array("Blad1", ActiveSheet.Name)).PrintPreview 'Of .PrintOut
End Sub

 

[edmoor]

Dat kan ook
Wel fijn dat er ook even wordt bedankt voor de moeite en het draadje op Opgelost wordt gezet.

 

[HSV]

Nieuwelingen geef ik nog een kans, maar na een tweede keer besteed ik geen aandacht meer aan een zwaluw.