Formulier printen met bijlage op achterkant in excel

[Jeneroy]

Allen,

Kan iemand mij helpen.
Ik ben bezig met een macro die formulieren kan printen (inc bijlagee) per ingevulde regel maar dat lukt mij niet.

Tabblad: invulformulier:
• Men vult de gegevens in en er kunnen maximaal 22 rijden worden ingevuld.

Tabblad: E-formulier:
• De eerste regel uit het tabblad invulformulier wordt automatisch in dit tabblad ingevuld .

Doelstelling:
• Via de macro moeten alle ingevulde regels worden geprint in een formulier. Het formulier staat in het tabblad E-formulier.
• Als men in het tabblad formulier kiest voor Type formulier = A (cel D1), dan moet bijlage 1 op de achterkant van het formulier worden geprint. En bij type formulier = B dan moet bijlage 2 op de achterkant van het formulier worden geprint

Alvast bedankt

 

[JEC.]

Dubbelzijdig printen moet je even handmatig instellen.
Deze macro zorgt dat de juiste 2 pagina's worden geprint.

Sub jvr()
 ar = Array("E-Formulier", "Bijlage1")
 ar2 = Array("E-Formulier", "Bijlage2")
 ThisWorkbook.Sheets(IIf([D1] = "A", ar, ar2)).PrintPreview   [COLOR="#008000"]'om te printen: .Printout[/COLOR]
End Sub

 

[VenA]

Er mist nog een stukje in de code

• Via de macro moeten alle ingevulde regels worden geprint in een formulier.

 

[JEC.]

Helemaal overheen gelezen.
De omrandingen in het formulier kun je regelen met Voorwaardelijke opmaak.

Sub jvr()
   ar = Array("E-Formulier", "Bijlage1")
   ar2 = Array("E-Formulier", "Bijlage2")
   jv = Sheets(1).Cells(5, 1).CurrentRegion.Offset(1)
 
   For i = 1 To UBound(jv)
     jv(i, 1) = jv(i, 6)
     jv(i, 2) = jv(i, 5)
     jv(i, 3) = jv(i, 8)
     jv(i, 4) = jv(i, 7)
   Next
     
   With Sheets(ar(0)).Cells(6, 2).Offset(1)
     .CurrentRegion.Offset(1).ClearContents
     .Resize(UBound(jv), 4) = jv
   End With
 
   ThisWorkbook.Sheets(IIf([D1] = "A", ar, ar2)).PrintPreview   'om te printen: .Printout
End Sub

 

[Jeneroy]

Bedankt heren