The following works for me. Much simpler. No API.
Must have a reference to MS WORD object
Dim objWord As Word.Application
Dim strOriginalPrinter As String
On Error Resume Next
Set objWord = GetObject(, "word.application")
If Err.Number = 429 Then
Debug.Print Err.Number...
Here you go Oozy:
This uses ADO so you need to have set your reference table to an ADO Library Object
Private Sub List1_Click()
Dim rstRst as ADODB.Recordset
If Not IsNull(List1) And List1.Column(0) <> "" Then
Set rstRST = New ADODB.Recordset
With rstRST...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.