Printen Tellijsten

[basblok]

Geacht Forum,

Als je in het Hoofdmenu op de knop Prt.Sc.Tellijsten klikt wordt je doorgestuurd naar het tabblad Overzicht tellijsten waar je een keuze moet maken welke partij je wilt afdrukken.

Het is de bedoeling dat je wordt doorgestuurd naar het tabblad Tellijst en dan kan afdrukken, zoals dat ook is gedaan met de knop Prt,Sc.Resultaten, die werkt perfect,

Wie kan mij hierbij helpen en de juiste code aangeven?

 

[alphamax]

Gewoon "Ga_naar_overzicht_tellijsten()" aanpassen

Sub Ga_naar_overzicht_tellijsten()

    Sheets("Tellijst").Select
    Cells(1, 1).Select
    ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)"
    
End Sub

 

[basblok]

Hallo alphamax,

Dankjewel voor de code; ik heb hem toegevoegd zoals je adviseerde en wordt inderdaad doorgestuurd naar het formulier. Ik heb echter nog 1 vraag: worden alle formulieren geprint of slechts 1?

 

[basblok]

Hallo alphamax,

Zoals ik al het vermoeden had, wordt slechts 1 tellijst van de 45 afgedrukt.
Hoe kan ik er voor zorgen dat alle lijsten worden afgdrukt?
Graag nog even een antwoordje hoe dit aan te passen is.

 

[basblok]

Heb je iets aan de code welke staat in de Macro "Sub Wedstrijden_tellijsten()" ?

 

[basblok]

Hallo alphamax,

Ik heb de pagina "Tellijst" aangepast en alle bladen zijn nu geselecteerd.
Wat nu nog te doen staat is de keuze mogelijkheid om een bepaalde pagina of een selectie pagina's af te drukken.

Ik hoop dat je dit laatste stukje nog voor elkaar krijgt.

 

[basblok]

Hallo alphamax,

Ik heb zojuist geprobeerd 1 pagina te printen, maar dat gaat niet.
Dat is wel belangrijk, want soms veranderen de gegevens en moet je die bepaalde tellijst vervangen.

Is er een mogelijkheid om een keuzemogelijkheid voor het bepalen welke pagina('s) moet worden afgedrukt?

 

[alphamax]

wat gebeurt er als je deze erbij plaatst en/of verwisseld met ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,2,,,TRUE,,FALSE)"?

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

Ik kan niet testen want ik heb excel2007

 

[basblok]

Ik zal er straks even naar kijken en je een antwoordje gen.

 

[basblok]

Hallo alphamax,

Proficiat, het werkt zoals het de bedoeling is.
Nogmaals dank.