Excel Forum

Code: Select all

Private Sub CommandButton2_Click()
Dim wx As Variant
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim r As Integer
On Error Resume Next

If ComboBox1.Value = "statement 301" Then 
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\CIM360\Doc\D1\301_02_01.doc")
wdApp.PrintOut Filename:="", Range:=wdPrintRangeOfPages, Copies:=1, Pages:="1-3"
wdApp.Quit True
Set wdApp = Nothing
End If
End Sub

Code: Select all

Private Sub CommandButton2_Click()
Dim wx As Variant
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim r As Integer
On Error Resume Next

If ComboBox1.Value = "statement" Then 
Set wdApp = New Word.Application
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open("C:\CIM360\Doc\D1\301_02_01.doc")
frmdocument.Hide 
wdDoc.PrintPreview
wdApp.Quit True
Set wdApp = Nothing
frmdocument.Show
End If
End Sub

Code: Select all

Private Sub CommandButton2_Click()
    Dim wx As Variant
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim r As Integer
    On Error Resume Next
    
    If ComboBox1.Value = "statement" Then
        Set wdApp = New Word.Application
        wdApp.Visible = True
        wdApp.Activate
        Set wdDoc = wdApp.Documents.Open("C:\CIM360\Doc\D1\301_02_01.doc")
        frmdocument.Hide
        wdDoc.PrintPreview
        Do While wdApp.PrintPreview = True
        Loop
        wdApp.Quit True
        Set wdApp = Nothing
        frmdocument.Show
    End If
End Sub