Вывод на печать (оформленных) данных с формы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д