Print selectie van gewenste pagina

[VanDeKoekeBakker]

Hallo,

Ik heb een Excel sjabloon gemaakt, deze bestaat uit meerdere pagina's, nu komt het voor dat ik niet het complete sjabloon invul en wil het niet ingevulde ook niet versturen naar klant (PDF) en of afdrukken.

Ik zou graag per pagina een keuze button (Macro) hebben voor wel/niet afdrukken + button die deze keuze daadwerkelijk af laat drukken en of PDF van maakt.

Heeft iemand een idee HOE ik dit aan moet pakken?


Groetjes,

VanDeKoekeBakker

 

[Joske2000]

Goeiemorgen VanDeKoekeBakker,
Welkom op het forum

Met de desbetreffende pagina in A1 :

Sub Print_pagina()
'in A1 staat er welke bladzijde je wil afdrukken
    ActiveWindow.SelectedSheets.PrintOut From:=Cells(1, 1), To:=Cells(1, 1), Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Met een inputbox :

Sub Print_pagina_Msgbox()
'messagebox met de vraag welke bladzijde je wil afdrukken
    inputboxvan = InputBox("vanaf welke pagina wil je afdrukken")
    inputboxtot = InputBox("tot welke pagina wil je afdrukken")

        ActiveWindow.SelectedSheets.PrintOut From:=inputboxvan, To:=inputboxtot, Copies:=1, Collate:=True, IgnorePrintAreas:=False
End Sub

Groet,

Joske

 

[VanDeKoekeBakker]

@Joske2000 bedankt voor de oplossing