Dames/heren
We hebben een aantal klanten waarbij we de opdrachtbon met de factuur meegestuurd moet worden. Hier heb ik vd week al een hele mooie code voor ontvangen. Maar nu wil ik de code verder uitwerken.
In principe wil ik de bon dus NIET uitprinten (85% vd klanten) tenzij het voor klant Piet is en dan gebruik ik deze code
Dit gaat goed
Hierbij staat in c4 de klant naam en in i4 het dossiernr.
Maar nu heb ik ook een hele rits met nagenoeg identieke namen die ik ook geprint wil hebben.
als voorbeeld heten ze joop1 joop4 joop6 joop8 enz.
Ik heb het geprobeerd met een * maar dat lukt niet zie onderstaand
Hopende op een snel en eenvoudig antwoord.
Groet Sjaakz
We hebben een aantal klanten waarbij we de opdrachtbon met de factuur meegestuurd moet worden. Hier heb ik vd week al een hele mooie code voor ontvangen. Maar nu wil ik de code verder uitwerken.
In principe wil ik de bon dus NIET uitprinten (85% vd klanten) tenzij het voor klant Piet is en dan gebruik ik deze code
Code:
Sub pdf_printen()
If Range("c4").Value = "piet" Then
CreateObject("shell.application").Namespace("P:\werken\bonnen").Items.Item(Range("i4").Value & ".pdf").InvokeVerb "print"
End If
Dit gaat goed
Hierbij staat in c4 de klant naam en in i4 het dossiernr.
Maar nu heb ik ook een hele rits met nagenoeg identieke namen die ik ook geprint wil hebben.
als voorbeeld heten ze joop1 joop4 joop6 joop8 enz.
Ik heb het geprobeerd met een * maar dat lukt niet zie onderstaand
Code:
If Range("c4").Value = "joop*" Then
enz enz
Hopende op een snel en eenvoudig antwoord.
Groet Sjaakz