Printen volledig jaar

[dopey60]

Ik kan met deze kalender alleen maar de maanden per maand afdrukken, dus niet het hele jaar van jan tot dec.
Het zou handig zijn dat als ik afdrukken selecteer dat hij dus het hele jaar afzonderlijk 12x afdrukt.

 

[edmoor]

Dat kan hiermee:

Sub PrtJaar()
    For i = 1 To 12
        Cells(1, 1) = i
        ActiveSheet.PrintPreview [COLOR="#008000"]'ActiveSheet.Printout[/COLOR]
    Next i
End Sub

 

[dopey60]

helaas werkt het niet

 

[VenA]

Wat werkt er niet en hoe heb je het toegepast?

 

[edmoor]

Lekker kort door de bocht.
Dat werkt prima.

 

[dopey60]

Het is misschien kort door de bocht, maar ben pas sinds kort bezig om mij het programma eigen te maken, dus nog op dit gebied een leek. Heb dus ook geen idee hoe ik dit moet toepassen of toevoegen in het Excel programma.

 

[edmoor]

Ok, je weet dus niet hoe er mee om te gaan.
Dat is wat anders dan te zeggen dat het niet werkt.
Bij deze je document met als extra een knopje om het hele jaar af te drukken:
Bekijk bijlage Kopie van Ploegenkalender1-1.xlsm

Achter dat knopje zit de code van #2.

 

[dopey60]

afdrukken

Ik heb de layout van de kalender iets veranderd, en heb zelf geprobeerd om met vba code de printknop te plaatsen. Heb exact de code van het kopie ploegenkalender overgenomen, nu doet hij niet hetzelfde als het kopie hij print alleen maar de maand januari 12x plus bij iedere print 2 lege bladen, doet hij trouwens ook in de kopie ploegenkalender bij iedere maand.
Wat gaat hier fout of wat doe ik niet goed, heb het een aantal dagen geprobeerd om het zelf uit te vinden maar kom er niet uit.

 

[edmoor]

Je hebt de cel waar het maandnummer vandaan wordt gehaald gewijzigd van A1 naar A2. Dan moet dat ook in de VBA aangepast worden.

Wijzig:
Cells(1, 1) = i

In:
Cells(2, 1) = i

Dit mag ook:
Range("A2") = i

Wat betreft de lege bladen, geef eens alleen het af te drukken bereik op. Maak er dus dit van:

Private Sub CommandButton1_Click()
    For i = 1 To 12
        Range("A2") = i
        Range("B1:AY26").PrintOut
    Next i
End Sub

 

[dopey60]

afdrukken

Heb het veranderd en het werkt goed, had het niet gezien dat de cel waaruit hij de maanden haalt was gewijzigd. Heel erg bedankt.

Hoe kan het dan dat hij bij iedere maand een lege pagina print.

 

[edmoor]

Als dat ook gebeurt met het afdrukken van alleen de opgegeven range lijkt me het ergens een instelling van de printer.
In de code is daar in ieder geval niets aan te doen.

 

[HSV]

Haal de Hpagebreak naar onderen in 'Pagina-eindevoorbeeld'.

 

[dopey60]

afdrukken

Had inderdaad met de instellingen van de printer te maken.