extern PDF bestand zoeken en afdrukken

[snitsel]

Beste

Ik heb een Excel bestand met daarin verschillende tabbladen.
Ik bevind mij in een tabblad (tabblad 1) en in cel A1 staat bijvoorbeeld: 1
Als ik op de VBA-knop druk, zou ik willen dat vba zoekt in de map "C:\beslag" naar het PDF-bestand die in cel A1 staat --> 1.pdf en deze dan vervolgens afdrukt.
Als ik cel A1 aanpas naar 14 en ik druk op de vba knop, dan moet hij terug in die map zoeken, maar dan het bestand 14.pdf afdrukken.

Hopelijk kan er mij iemand helpen

Met vriendelijke groetjes

 

[Wigi]

Zie hier: http://www.worksheet.nl/forumexcel/showthread.php?t=56106

Wigi

 

[Ginger]

Snitsel, Een soort gelijke vraag is zojuist op een ander forum óók beantwoord (door Wigi, post nr. 4). Wellicht kan je er wat mee...

Groet, Leo

EDIT: ....Maar ik zie dat Wigi dat zelf óók al door had.... ;-))

 

[Wigi]

EDIT: ....Maar ik zie dat Wigi dat zelf óók al door had.... ;-))

Ik ken die poster toevallig

 

[snitsel]

Zie hier: http://www.worksheet.nl/forumexcel/showthread.php?t=56106

Wigi

Wigi

Ik moet deze code gebruiken zeker?
http://puremis.net/excel/code/083.shtml

Ik begrijp echt niets van de hele code.

Moet ik deze 2 codes samenvoegen?
wat wil hij zeggen met de internet controls?
Dit heb ik toch niet nodig?

 

[Wigi]

Ik heb dat ook nog nooit gebruikt, maar met een (simpele...) Google zoekactie kwam ik hierop.

 

[snitsel]

Ik heb dat ook nog nooit gebruikt, maar met een (simpele...) Google zoekactie kwam ik hierop.

Hmm.. Ik zal voor deze toch nog even hulp nodig hebben en verder uitzoeken.
Maar telkens als ik begin te veranderen in de codes krijg ik foutmeldingen en loopt het niet goed...

Hopelijk is er iemand anders die me kan verder helpen..toch al bedankt wigi

 

[snitsel]

Hmm.. Ik zal voor deze toch nog even hulp nodig hebben en verder uitzoeken.
Maar telkens als ik begin te veranderen in de codes krijg ik foutmeldingen en loopt het niet goed...

Hopelijk is er iemand anders die me kan verder helpen..toch al bedankt wigi

Beste Wigi,

Ik heb de code nogmaals proberen toe te passen maar het lukt mij echt niet.
http://puremis.net/excel/code/083.shtml

kan je mij verder helpen? Zou je eens een bestand kunnen posten die werkt?

Hopelijk kan je me verder helpen.

mvg

Steven Desnyder

 

[snitsel]

ik heb juist een deel van de oplossing gevonden.
Je kan het dus met een korte code:

Dim Rc As Variant
        Rc = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe /t C:\test.pdf", 1)

Alleen had ik hierbij nog 2 vragen

Ik vraag me af hoe je het pdf bestand na het afdrukken terug automatisch doet afsluiten en of doen werken op de achtergrond.

Ik vroeg me tevens ook af hoe ik "test.pdf" als een range kon gebruiken.
vb cel A1 = test1 --> moet test1.pdf afdrukken
of
cel A1 = test2 --> dan moet hij test2.pdf afdrukken

Hopelijk kunnen jullie nog wat verder helpen.

mvg

Steven Desnyder

 

[Wigi]

Ik vroeg me tevens ook af hoe ik "test.pdf" als een range kon gebruiken.
vb cel A1 = test1 --> moet test1.pdf afdrukken
of
cel A1 = test2 --> dan moet hij test2.pdf afdrukken

Dim Rc As Variant
        Rc = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe /t C:\" & Range("A1").Value, 1)

 

[snitsel]

Dim Rc As Variant
        Rc = Shell("C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe /t C:\" & Range("A1").Value, 1)

Het werkte precies nog niet helemaal omdat & ".pdf" er nog niet tussen stond.
Dit is het dus geworden

Sub Afdrukken()
    Dim Rc As Variant
        Rc = Shell("C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe /t D:\test\" & Range("B1").Value & ".pdf", 1)
End Sub

Alleen sluit mijn acrobat nog niet.
ik probeer het reeds met: SendKeys "^Q", True
Maar dit lukt dus niet. Iemand een ID?

 

[snitsel]

Beste

Ik gebruik dus momenteel de volgende code

    Dim Rc As Variant
        If Sheets("Gegevens").Range("F7").Value <> "" Then
            Rc = Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /t G:\Collstrop\DataBase\Uithaallijsten\Poorten_beslag\" & Range("AA1").Value & ".pdf", 1)
        End If
            SendKeys "^Q", True

Het probleem is als volgt:
Mijn "werkboek" - geopende bestand in de Reader wordt dus gesloten,
maar ik vind het niet hoe ik mijn reader volledig kan afsluiten.

Kan er mij iemand verder helpen aub.

Mvg