afdrukvoorbeeld door middel van een knop

[Koenie]

hoi helpers,

Ik heb een bestand met twee werkbladen.
1 invoerblad en 1 met gegevens.
Het blad met gegevens heb ik verborgen en nu wil ik van dit verborgen werkblad een afdrukvoorbeeld tevoorschijn toveren door middel van een knop op het eerste werkblad.

wie kan mij helpen aan de code achter deze knop?

gr.
Koen

(heb het geweten, maar is al weer zo lang geleden dat ik daar gebruik van gemaakt heb :evil: )

 

[Jan van Asseldonk]

Even met macro opnemen gedaan.

Sub Macro1()
'
Sheets("Blad2").Visible = True
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.Visible = False
End Sub

 

[Koenie]

Hoi Jan,

als ik de macro maak met jouw tekst(blad 2 veranderd in gegevens)dan krijg ik een afdrukvoorbeeld van mijn invoerblad en dat is nu net niet de bedoeling.
Ik moet een voorbeeld hebben van mijn gegevensblad.

gr.
Koen

 

[Jan van Asseldonk]

Je moet je printgebied eerst benoemen.
Wat in de macro stond was vooral bedoeld om de sheet zichtbaar te maken (deze wordt dan meteen actief) en dan de printrange te laten zien. Als er nog geen benoemd is pakt ie automatisch het actieve blad.
Bij jou was er al een range benoemd (op je invoerblad) en dan wordt die automatisch gebruikt.

Met onderstaande code moet je verder komen.

Sub Macro1()
'

Dim Printje As String
'
Printje = "d1:e30" 'Vul hier jouw gebied in
Sheets("gegevens").PageSetup.PrintArea = Printje
Sheets("gegevens").Visible = True
sheets("gegevens").PrintPreview
Sheets("gegevens").Visible = False
End Sub

 

[Koenie]

bedankt

Hoi Jan,

Het werkt.
Hartstikke bedankt voor je reactie


gr.
Koen:thumb: