printen naar pdf door macro (inclusief selectie, al in de macro)

ik heb in een bestand een selectie waardoor ik met onderstaande macro de geselecteerd pagina's kan printen.

*

Sub testenpdfprinten()
'
' testenpdfprinten Macro
'

Dim ab As Worksheet


If Range("r2") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=1, To:=1
End If
If Range("r3") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=2, To:=2
End If
If Range("r4") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=3, To:=3
End If
If Range("r5") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=4, To:=4
End If
If Range("r6") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=5, To:=5
End If
If Range("r7") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=6, To:=6
End If
If Range("r8") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=7, To:=7
End If
If Range("r9") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=8, To:=8
End If
If Range("r10") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=9, To:=9
End If
If Range("r11") = "Onwaar" Then
Else
Sheets("Certificaat").PrintOut from:=10, To:=10
End If





'
End Sub


*

deze werkt ook prima maar pakt altijd de laatst gebruikte printer, en bij mij is het de bedoeling dat hij naar pdf opslaan venster gaat zodat ik hem met de juiste naam op de juist plek kan opslaan.

als ik nu eerst de 'CutePDF Writer' selecteer dan krijg ik per pagina een pdf.

weet iemand hoe ik dit moet aanpakken.
Bij voorbaat dank.

Welke versie van Office gebruik je?

NB:
Ik denk dat dit hezelfde doet:

@Edmoor
Ik gebruik versie 2013.

verder krijg is jouw code niet aan de praat.
weet niet waar precies de fout zit want ik krijg ook geen melding, maar als ik hem uitvoer gebeurt er helemaal niets.

In Office 2013 kan je rechtsreeks opslaan naar een op te geven pad en bestandsnaam.
Gebruik je in kolom R de waarden WAAR en ONWAAR of de tekst Waar en Onwaar?
Het voorbeeld dat ik plaatste gaat uit van het eerste.

door de Checkboxen in kolom M6 tot M15 te (de)selecteren komt er in R2 tot R11 de waarde WAAR/ONWAAR te staan.

dat rechtstreeks opslaan werkt hier niet voor, het moet namelijk iedere keer weer ergens anders worden opgeslagen.

Plaats dan dat document hier. Ook bij dat rechtstreeks opslaan kan je een dialoog openen om te vragen waar het bestand moet worden opgeslagen.

bij deze

Bekijk bijlage 295959

Je begint dus niet op regel 1 maar op regel 2, had ik eerder moeten zien
Tevens lijkt me de werking iets anders. Maak er dan dit van:

Het opslaan als PDF en het vragen naar de locatie kijk ik vanavond even naar als niemand hier me voor is.

als ik deze code toe pas dan krijg ik wel het scherm dat er wat wordt afgedrukt, maar er gebeurd verder niets.
dit heeft ook niets met mijn printer of zo te maken, want de oude code werkt wel alleen print deze helaas niet dubbelzijdig.
ik krijg dus ook nu weer geen foutmelding dus weet ook niet waar het aan kan liggen.

ik heb een nieuwe vraag openstaan, dit omdat de vraagstelling is verandert.
hier te vinden: http://www.helpmij.nl/forum/showthr...df-verwerken-door-macro?p=5931911#post5931911