Formulier automatisch invullen en afdrukken

[KeveinM]

Is het mogelijk via een of andere functie om automatisch voor elke regel in tabblad 1 een nieuw formulier te maken en af te drukken of is dit iets dat niet mogelijk is?

Voorbeeld in bijlage

Dus bv voor een knop waarop je drukt en die dan automatisch een formulier afdrukt voor Kerkstraat 1 . 3 . 5 ....Bekijk bijlage Map1.xls

 

[Haije]

Ja, dat kan, zie bijlage

 

[KeveinM]

Alvast bedankt voor de reactie. Maar zou het kunnen dat hij nu enkel de afdrukvoorbeelden voor elke regel laat zien en ze niet effectief afdrukt?

 

[VenA]

Wijzig printpreview in printout.

Sub VenA()
ar = Blad1.Cells(1).CurrentRegion
  For j = 2 To UBound(ar)
    Range("C5:E5") = Array(ar(j, 1), , ar(j, 2))
    ActiveSheet.PrintPreview 'Printout
  Next j
End Sub

 

[KeveinM]

Super. En als ik enkel bv celbereik A1 tem F24 wil afdrukken, waar zet ik dit in de code?

 

[VenA]

Range("A1:F24").PrintPreview 'Printout

 

[KeveinM]

Idd wilde net zelf de oplossing posten
Thx

 

[Haije]

Wil je dan svp de status van deze vraag op "opgelost" zetten?