Private Sub cmdPrint_Click()
'Add current details to tbl_Letter. All in GV
Call fnDeleteLetters
Call fnAddLetterDetails
'now need to choose which letter
'open a new form, small with radio buttons and OK
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = frmDetails.hWnd
OpenFile.hInstance = App.hInstance
sFilter = "Word Documents (*.doc)" & Chr(0) & "*.DOC" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:\Inhance\Documents"
OpenFile.lpstrTitle = "Search For Inhance Letters"
OpenFile.flags = 0
lReturn = GetOpenFileName(OpenFile)
If lReturn = 0 Then
'do nothing, window closes
Else
'open word document fixed price letter
Dim myWordApp As Word.Application
Set myWordApp = New Word.Application
myWordApp.Documents.Open Trim(OpenFile.lpstrFile)
myWordApp.Application.Visible = True
End If
End Sub