Opgelost Printen via VBA in Excel

[Senso]

Ik zoek VBA die vaste bereiken/vast patroon vd bankrekening kan printen.
bereik 1 Is kolom A-B-C-D-E en rij 1 tm 40 staat een bankrekening
bereik 2 Is kolom E-F-G-H-I en rij 1 tm 40
bereik 3 Is kolom I-J-K-L-M en rij 1 tm 40
Deze bereiken bevatten dus verschillende bankrekeningen.
etc
om bij printen telkens een bereik te selecteren vind ik lastig en kost tijd.

Kan/wil iemand een VBA schrijven waar dus meerdere opdrachtregels instaan (in en uit te schakelen) dan kan ik dat zelf bewerken wat nodig is te printen en dat dit printen een beetje automatisch gaat.

 

[edmoor]

Geef die bereiken een naam en gebruik die naam bij het afdrukken.
Of plaats een voorbeeld document.

 

[Senso]

Of plaats een voorbeeld document.

Wil jij jouw bankgegevens dan eerst even hier plaatsen?

Geef die bereiken een naam en gebruik die naam bij het afdrukken.

Zou niet weten hoe dat moet. Zal het proberen te vinden.

 

[edmoor]

Je begrijpt het concept van een "voorbeeld"?

 

[AHulpje]

Een beginnetje:

Sub PrintBankafschriften()
    With ActiveSheet
        .PageSetup.PrintArea = "$A$1:$E$40"
        .PrintOut Copies:=1
        .PageSetup.PrintArea = "$F$1:$J$40"
        .PrintOut Copies:=1
        .PageSetup.PrintArea = "$K$1:$O$40"
        .PrintOut Copies:=1
    End With
End Sub

En verwerkt in een document, start macro met Alt+F8, Enter:

 

[Senso]

Je begrijpt het concept van een "voorbeeld"?

De laatste tijd begrijp ik niet zo veel meer.

Ik kan een bereik een naam geven, echter waar staat dan die printfunctie? Excel 2007.
Ik geloof dat ik het begrijp. Naam geven > bij het pijltje links de juiste naam kiezen > Printen > selectie en printen. Nog even wat oefenen dan.

 

[edmoor]

Zie het voorbeeld van AHulpje.
Zo kan het zonder de bereiken een naam te geven.

 

[HSV]

Haal de drie komma's en de -1 weg als het naar je zin is.

Sub PrintBankafschriften()
 Range("a1:e40").PrintOut , , , -1
 Range("f1:j40").PrintOut , , , -1
 Range("k1:o40").PrintOut , , , -1
End Sub

 

[Senso]

Ik denk dat ik een probleem krijg met namen geven als ik een rekening invoeg want er staat allemaal $ in de verwijzingen.
Als ik bij > Namen gebruiken > Relatief/absoluut negeren uitvink dan werkt dit niet.

Bericht automatisch samengevoegd: Vandaag om 15:05

Het lukt wel. Bereik is snel aan te passen. Bedankt voor de hulp.

Bericht automatisch samengevoegd: Vandaag om 16:02

Fout 400 ?

Sub PrintBankrekeningen()
    With ActiveSheet
    'CB-D000 RenteVast Rekening
        .PageSetup.PrintArea = "$A$1:$E$40"
        .PrintOut Copies:=0
    'CB-D000 RenteVast Rekening
        .PageSetup.PrintArea = "$E$1:$I$40"
        .PrintOut Copies:=1
    'CB-D000 RenteVast Rekening
        .PageSetup.PrintArea = "$I$1:$M$40"
        .PrintOut Copies:=0
    'IN-000 ING Betaalrekening
        .PageSetup.PrintArea = "$M$1:$Q$40"
        .PrintOut Copies:=0
    'IN-000 ING Oranje Spaarrekening
        .PageSetup.PrintArea = "$Q$1:$U$40"
        .PrintOut Copies:=0
    'SN-000 SNS Deposito
        .PageSetup.PrintArea = "$U$1:$Y$40"
        .PrintOut Copies:=0
    'SN-0000 SNS Internet Sparen
        .PageSetup.PrintArea = "$Y$1:$AC$40"
        .PrintOut Copies:=0
   End With
End Sub

 

[HSV]

Geen fout 1004?

 

[Senso]

Laat maar zitten. Ga er niet verder mee. De printer gaf het op.

 

[peter59]

De printer gaf het op.

Of ben je het zelf?

 

[Senso]

Ik heb alles wel geprobeerd. Het werkt of werkt niet. De code in post 9 werkt niet. Vervolgens na drie uur adviezen, zoeken en uitwerken moet ik beoordelen of ik er snelheid en tijd mee win. Dan is duidelijk zelf handmatig een bereik kiezen nog de snelste methode is. Na vijf prints waarin de kleuren totaal niet goed waren maar gestopt want dat kost mij ook weer een uur om dat goed te krijgen.

 

[peter59]

Dan is duidelijk zelf handmatig een bereik kiezen nog de snelste methode is. Na vijf prints waarin de kleuren totaal niet goed waren maar gestopt want dat kost mij ook weer een uur om dat goed te krijgen.

De moraal van dit verhaal is dus?

 

[HSV]

Wat zou hier gebeuren in die code van #9?

Copies:=0

Er zijn meerdere codes gegeven.