lijst printen

[shanna]

hoi,

ik heb op blad 1 een lijst met clientengegevens van cel A1 tot BA 100, in cel A1, A2 enz staat het clientennummer.
Op blad 2 staat een overzicht, als je hier op cel C3 het clientnummer ingeeft verschijnen de gegevens van de client.
Nu wil ik het overzicht van blad 2 uitprinten voor alle clienten. Kan dit in een macro zodat alle clienten worden uitgeprint? ik doe het nu via de volgende opdracht maar dat lijkt me wat omslachtig:

Range("a1").Copy
    Range("B3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Range("a2").Copy
    Range("B3").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

 

[Demeter]

Probeer deze code eens:

Sub printen()

For Each c In Sheets("blad 1").Range("A1:BA100")
    If c <> "" Then
        Sheets("Blad 2").Range("B3") = c.Value
        Sheets("Blad 2").PrintOut Copies:=1, Collate:=True
    End If
Next

End Sub

 

[shanna]

hoi,

ik krijg foutmelding 9

het subsript valt buiten het bereik

gr

Shanna

 

[Demeter]

Even iets anders:

Range("A1:BA100") geeft 5400 print opdrachten (als alle cellen gevuld zijn)!!!!!

Klopt dit?

 

[Demeter]

Bij mij doet deze het gewoon.
Probeer eens een kleiner bereik te printen:

Sub printen()

Application.ScreenUpdating = False

For Each c In Sheets("blad 1").Range("A1:A5")
    If c <> "" Then
        Sheets("Blad 2").Range("B3") = c.Value
        Sheets("Blad 2").PrintOut Copies:=1, Collate:=True
    End If
Next

Application.ScreenUpdating = True

End Sub

 

[shanna]

Top hij doet het,
het probleem was dat jij blad 1 met spatie had geschreven en bij
mij er blad1 stond.

hartstikke bedankt

Shanna

 

[Demeter]

ik heb op blad 1 een lijst met clientengegevens

Iets meer uitgebreid:

Sub printen()
Dim teller, AantalCopies As Long

Application.ScreenUpdating = False

teller = 0

Bericht = "Hoeveel bladen wilt u van iedere klant uit laten printen?"
AantalCopies = InputBox(Bericht, "Aantal copies?", 0)

    For Each c In Sheets("blad 1").Range("A1:A5")
        If c <> "" Then
            Sheets("Blad 2").Range("B3") = c.Value
            Sheets("Blad 2").PrintOut Copies:=AantalCopies, Collate:=True
            teller = teller + 1
        End If
    Next

Application.ScreenUpdating = True

If teller > 0 Then MsgBox "Er is / zijn " & teller & " print opdracht(en) verzonden!!!"

End Sub