word document afprinten gekoppeld aan gegevens in selctie box

[teenbeat]

JA.......daar zijn we weer

Goed ik ben de afgelopen dagen perfect geholpen en heb mijn excel formulier draaiende en draait soepel. Nu zou ik graag nog een optie in dit formulier willen hebben. waarschijnlijk heb ik dit al eens gevraagd in eerder topic, maar zal het toch nog even voor de zekerheid vragen.

Het volgende. Ik heb op mijn hdd een map staan met alle files van klanten. elke file heeft een eigen naam met daarin een klantnummer of cq radiocode in gewoven. In mijn excel formulier staat een selctie box, daar wanner ik een bepaalde code selecteer komen hier gegevens tevoorschijn omtrent de betreffende klant. Dit zijn ongeveer de zelfde gegevens die ook in de word documenten staan. Ik moet er wel bij zeggen het excel formulier is ongeveer qua uiterlijk hetzelfde als het word document, maar alleen het word document is geldig als officeel af te printen toegestane document. Nu zou ik graag via een printknop die gekoppeld is aan het selectie vak het betreffende word document afdrukt. dus ik bv ik selecteer 380003, dan is het de bedoeling dat de knop het word bestand waarin 380003 in voorkomt in de map op mijn hdd direct afprint. Sjee lange vraag..... maar goed. Is dit mogelijk en hoe kan ik dit het eenvoudigste doen. Heb totaal geen kennis van vba alvast bij voorbaat. ik zal nogmaals voorbeeld excel form bijvoegen.

 

[Roncancio]

Ik heb de combobox verwijderd en een datavalidatielijst in de cel geplaatst.

Indien er een andere radiocode wordt gekozen, dan wordt het bijbehorende Worddocument geopend. Indien dat document niet wordt gevonden, verschijnt er een melding.

Controleer het pad waarna VBA de Worddocumenten moet zoeken. Nu wordt in de C-directory gezocht.

Met vriendelijke groet,


Roncancio

 

[teenbeat]

zoiets is in principe wat ik moet hebben,

maar doordat nu de combo box er niet meer is worden de gegevens niet meer weer gegevens in het scherm. het is de bedoeling dat wanneer de gegevens van een bepaalde klant in dit formulier terecht komt, dat ik het word document met zelfde gegevens ( is een bestaande word document) gekoppeld aan de combobox. dus zodra ik op de print knop druk moet in feite excel zien van he, bovenin staat radiocode 2, de gegevens staan op scherm, ik moet document pietje_radio1_test.doc uitprinten. Verandert de code selectie boven in combo naar radio code 60 dan moet via de printknop ook automatische gezien worden dat radio60 moet worden uitgeprint. Maar ik moet wel elke keer de gegevens van de selctie boven in mijn formulier zien

 

[Roncancio]

zoiets is in principe wat ik moet hebben,

maar doordat nu de combo box er niet meer is worden de gegevens niet meer weer gegevens in het scherm. het is de bedoeling dat wanneer de gegevens van een bepaalde klant in dit formulier terecht komt, dat ik het word document met zelfde gegevens ( is een bestaande word document) gekoppeld aan de combobox. dus zodra ik op de print knop druk moet in feite excel zien van he, bovenin staat radiocode 2, de gegevens staan op scherm, ik moet document pietje_radio1_test.doc uitprinten. Verandert de code selectie boven in combo naar radio code 60 dan moet via de printknop ook automatische gezien worden dat radio60 moet worden uitgeprint. Maar ik moet wel elke keer de gegevens van de selctie boven in mijn formulier zien

Ik heb de macro aangepast zodat de gegevens worden bijgewerkt voordat wordt geprint.

Met vriendelijke groet,


Roncancio

 

[teenbeat]

Ik heb het geprobeert heb zelfs een bestandje aangemaakt met alleen de code zoals in selectie box komt, maar wil niet openen

dit is code plus path, bestandje dat ik gemaakt heb is 380-003.doc en heb deze geplaats op d schijf in map testklant. krijg alleen de melding kan bestand niet vinden, controleer het pad

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("D6")) Is Nothing And Range("D6").Value <> "" Then
    Range("D1").Value = WorksheetFunction.Match(Range("D6").Value, Worksheets(1).Range("Radiocode"), 0)
    Set wApp = CreateObject("Word.Application")
    Set wBes = wrdApp.Documents.Open("D:\testklant" & Range("D6").Value & ".doc")
    If wBes Is Empty Then
        MsgBox "Document is niet gevonden." & Chr(13) & "Controleer het pad.", vbExclamation, "Document niet gevonden."
    Else
        wBes.PrintOut
        wBes.Close
    End If
End If
End Sub

wat nu

 

[Roncancio]

Zo te zien moet je nog een \ zetten achter de mapnaam.

Dus op regel 6:

Set wBes = wrdApp.Documents.Open("D:\testklant\" & Range("D6").Value & ".doc")

Met vriendelijke groet,


Roncancio

 

[snb]

Alternatief

If dir("D:\testklant" & Range("D6").Value & ".doc")<>"" Then 
  With getobject("D:\testklant" & Range("D6").Value & ".doc")
    .content="inhoud"
    .printout true
    .close 0
  End With
End IF