multi printen uit bestand

[spokkem]

hallo allemaal

ik ben met een progje bezig in excel.
ik heb een tabblad met allemaal namen en een tabblad met een print format.
is het mogelijk in excel om alle namen of een selectie daaruit uit te printen met het print format.
tot nu toe heb ik alleen maar kunnen vinden dat je voor iedere naam een printblad moet aanmaken.
maar ik wil maar een printformat en dan met een macro of zo de verschillende namen met hetzelfde format uitprinten doormiddel van een selecti op voldoende.

ik hoop dat de vraag duidelijk is.

 

[Warme bakkertje]

Sub tst()
Set tSheet = Sheets("print format")
With Sheets("431")
    For Each cl In .Range("S9:S" & .Cells(Rows.Count, 1).End(xlUp).Row)
        If cl.Value = "VOLDOENDE" Then
            sq = .Cells(cl.Row, 1).Resize(, 17)
            With tSheet
                .Range("C4").Value = Sheets("431").Range("B1").Value
                .Range("C6").Value = Sheets("431").Range("B2").Value
                .Range("C7").Value = Sheets("431").Range("B3").Value
                .Range("C9").Value = Sheets("431").Range("B4").Value
                .Range("C11").Value = Date
                .Range("C15").Value = sq(1, 1) & " " & sq(1, 2)
                .Range("C17").Value = sq(1, 3)
                .Range("C19").Value = sq(1, 6)
                .Range("C21").Value = sq(1, 8)
                .Range("P17").Value = sq(1, 5)
                .Range("P19").Value = sq(1, 7)
                .Range("P21").Value = sq(1, 9)
                .Range("C27").Value = sq(1, 13)
                .Range("C29").Value = sq(1, 15)
                .Range("C31").Value = sq(1, 17)
                .Range("C33").Value = cl.Value
            End With
        End If
        tSheet.PrintPreview '.PrintOut
    Next
End With
End Sub

Hier kan je mee beginnen, echter er zijn nog enkele bemerkingen.
Op blad 431 ELCO op Blad print formaat OPCO ??
De naam + voorletter en rang v/d instructeur ontbreken nog op blad 431.
Ik heb nu alles in Afdrukvoorbeeld gezet bij wijze van voorbeeld. Wijzig PrintPreview in PrintOut om daadwerkelijk af te drukken.
Post anders een nieuw compleet voorbeeld voor verdere uitwerking.

 

[spokkem]

Hallo Rudi

elco is inderdaad hetzelfde als opco.
ik ga hier mee aan de slag en laat je nog even weten hoe het gegaan is.
de naam van de instructuer staat in gegevens voor een dropdown keuze en wordt dus pas ingevuld als de testen klaar zijn.
de gevens van de instructuer komen direct op het print format of is dat niet goed.

alvast bedankt

vr gr spokkem

 

[spokkem]

Hallo Rudi

ik heb een kleine aanpassing gedaan
Sub tst()
Set tSheet = Sheets("print format")
With Sheets("431")
For Each cl In .Range("S9:S" & .Cells(Rows.Count, 1).End(xlUp).Row)
If cl.Value = "VOLDOENDE" Then
sq = .Cells(cl.Row, 1).Resize(, 17)
With tSheet
.Range("C4").Value = Sheets("431").Range("B1").Value
.Range("C6").Value = Sheets("431").Range("B2").Value
.Range("C7").Value = Sheets("431").Range("B3").Value
.Range("C9").Value = Sheets("431").Range("B4").Value
.Range("C11").Value = Date
.Range("C15").Value = sq(1, 1) & " " & sq(1, 2)
.Range("C17").Value = sq(1, 3)
.Range("C19").Value = sq(1, 6)
.Range("C21").Value = sq(1, 8)
.Range("P17").Value = sq(1, 5)
.Range("P19").Value = sq(1, 7)
.Range("P21").Value = sq(1, 9)
.Range("C27").Value = sq(1, 13)
.Range("C29").Value = sq(1, 15)
.Range("C31").Value = sq(1, 17)
.Range("C33").Value = cl.Value
End With
tSheet.PrintOut Copies:=2 '.PrintPreview '.PrintOut Copies:=2
End If
Next
End With
End Sub

dit werkt goed
is het ook mogelijk om de invoer van sheet(431) variable te maken .
ik was vergeten te vertellen dat er natuurlijk meerdere eenheden zijn dus komen er meerdere tabbladen.

vr gr spokkem

 

[Warme bakkertje]

Worden al deze eenheden altijd tesamen in 1 keer afgedrukt, of moet dit afzonderlijk kunnen ?
In geval1 kan je met een array van werkbladen werken, in geval2 eventueel met een Inputbox waarin je de bladnaam moet intikken.
Hoe de gegevens v/d instructeur erin komen laat ik aan jou over, je weet nu hoe het moet.

 

[spokkem]

oke Rudi

ik ga proberen of ik daar iets van kan maken.
bedankt voor de input
instructeur inderdaad iets te snel getypt.

vr gr spokkem