print macro met keuze van werkblad

[janloomans]

hi allen ...

ik heb een werkmap, uurroosters genaamd.
daarin staan een 10 tal werkbladen om data te verzamelen, maar 5 werkbladen die er echt toe doen en de output geven.

ze heten BEDIENING, TOOG, AFWAS, POETS en STUDENTEN.

kan ik op het eerste blad op 1 of andere manier (bijvoorbeeld door een X in te vullen in kolom B naast de naam van het werkblad ofzo), aangeven
welke werkbladen ik wil printen... ik wil dit graag ook doen via de print dialog, omdat ik graag wil kunnen kiezen welke printen er gebruikt wordt (PDF writer of gewone printer.)

in sommige gevallen moet ik bijvoorbeeld alleen BEDIENING afprinten (als er aanpassingen gebeurd zijn ...), en soms alles, ...

groetjes

Thanks!

 

[jolivanes]

Kun je hier iets mee aanvangen.
Verander het zodat het je past.
Als er problemen zijn laat het ons weten

 

[janloomans]

Hi,

thanks, helpt me al een pak op weg na wat aanpassingen ..

1 vraagje; in je macro heb je hardcoded die map E:\mail-downloads geplaatst als save-locatie ... Hoe kan ik van die StrDesktop maken dat ie de pdf's opslaat op de bronlocatie van het bestand ? dus in dezelfde map ... Dit werkblad zal op meerdere computers gebruikt worden, hardcoded verwijzingen zijn dus niet zo handig ...

 

[janloomans]

en nog wat bugjes: bij print single sheet pdf geeft ie n fout bij t volgende:

            Sheets(ListBox1.List(I, 0)).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                                            ftst & "\" & ListBox1.List(I, 0), Quality:=xlQualityStandard, IncludeDocProperties:= _
                                                            True, IgnorePrintAreas:=False, OpenAfterPublish:=True    'False

bij print grouped sheets pdf geeft ie errors bij t volgende:

    Sheets(arrValues).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=strDesktop & "\" & strBestand, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=True

beiden staat er 'this object doesn't support this property or method

 

[ExcelAmateur]

Jan,

Ik heb het net getest met een Blad als PDF op te slaan en het werkte.
Uiteraard heb ik ook het path aangepast in cel C1
Had alleen True naar False aan gepast in de macro.

alse, OpenAfterPublish:=False

Ook voor meerdere Bladen moet je dit op False zetten.

Tevens kun je de naam wijzigen, nu maakt hij er PDF test van.
Het path waar het naar toe moet je aanpassen in de code

strBestand = "[B]PDF Test[/B]"
    'strDesktop = CreateObject("WScript.Shell").SpecialFolders("Desktop")     '<----- Saves to Desktop
    strDesktop = "[B]E:\E-Mail Downloads[/B]"

 

[Warme bakkertje]

Hier eentje met PrintDialogscherm zoals gevraagd.
Zorg er wel voor dat de werkbladen uit je 1ste vraag ook in die volgorde vooraan staan.
Van hieruit kunnen we dan verder gaan aanpassen naar jouw wensen.

 

[janloomans]

Als ik deze uittest; krijg ik wel een mooi form met keuze van werkbladen,
maar eender welke ik selecteer, hij print enkel het startblad (dat weliswaar NIET bij de keuzes staat).

ik had het ook eerst getest en als ik dan de print dialoog zie, en ik wil een preview bekijken, bevriest alles ...
doe ik iets verkeerd ?

 

[Warme bakkertje]

Deze zal al beter gaan.

 

[janloomans]

Deze zal al beter gaan.

deze werkt inderdaad ...
Nog 1 klein vraagje; maar tis niet erg moest t niet gaan ...

als ik nu 3 sheets selecteer, krijg ik ook 3 keer de print dialoog ... ik heb de macro bekeken en snap de redenering uiteraard ... maar t is wat onhandig

 

[Warme bakkertje]

Zie bijlage.

 

[janloomans]

Zie bijlage.

perfect !!!