Вывод на печать (оформленных) данных с формы - VB

Формулировка задачи:

Подскажите, уважаемые специалисты, существует ли какое-то решение следующей задачи: В программе на VB заполняются поля (фамилия, имя, отчество и т.д.) Далее необходимо все это вывести на печать, но не так, чтобы с формы распечаталось, а все оформить красиво, какбудто в Word'е сделано. вот..

Решение задачи: «Вывод на печать (оформленных) данных с формы»

textual
                            Листинг программы 
                        
 
                            
                        
Private Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
    ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub Command1_Click()
 
On Error Resume Next
Kill App.Path & "\Export.html"
 
   Open App.Path & "\Export.html" For Append As #1
   Print #1, "<center>Акт</center>"
   Print #1, "<center><br>Акт приема и передачи</br></center>"
   Print #1, "<br>" & "<br>" & "</br>"
   Print #1, "<HTML>"
   Print #1, "<HEAD>"
   Print #1, "<TITLE>Отчет</TITLE>"
   Print #1, "</HEAD>"
   Print #1, "<BODY>"
   Print #1, "<TABLE BORDER>"
   Print #1, "<TR>"
   Print #1, "<TD>" & "Логин клиента" & "</TD>"
   Print #1, "<TD>" & "Ф.И.О. клиента" & "</TD>"
   Print #1, "<TD>" & "Наименование работ" & "</TD>"
   Print #1, "<TD>" & "Цена" & "</TD>"
   Print #1, "</TR>"
   Print #1, "<TR>"
   Print #1, "<TD>" & Тут значение для 1 строки 1 столбца & "</TD>"
   On Error Resume Next
   Print #1, "<TD>" & Тут значение для 1 строки 2 столбца & "</TD>"
   Print #1, "<TD>" & Тут значение для 1 строки 3 столбца & "</TD>"
   Print #1, "<TD>" & Тут значение для 1 строки 4 столбца & "</TD>"
   
   Print #1, "</TR>"
   Print #1, "</TABLE>"
   Print #1, "</BODY>"
   Print #1, "</HTML>"
   Print #1, "<BR>" & "</BR>"
   Close #1
 
Call ShellExecute(0, "Open", App.Path & "\Export.html" & vbNullChar, vbNullChar, vbNullChar, SW_SHOWNORMAL)
End Sub