Программирование
Веб программирование

Печать VB-6

 
 

Т.к. Басик входит в 5 лучших языков, то он и должен уметь работать с принтером. Ты понял на что я намекаю? А я намекаю на то, что этот и последующие шаги будут посвящены ПРИНТЕРАМ. Если у тебя нет принтера, то срочно купи, а то несколько следующих шагов тебе придется пропустить. Так что, быстро бери бабки, и беги в магазин :-)). Начнем с печати всей формы. Для этого у формы есть свойство PrintForm(Печать формы).

 Form1.PrintForm 'Печатаем форму

Ну это все фигня, т.к. форму почти ни кто не когда не печатает, а люди обычно печатают текст :-)).


Есть вопросы? Спроси на нашем форуме!!
Sigma20 [25.07.2013 22:43]

PrintForm не свойство, а метод. В списке свойств формы такого наименования не существует. Кстати, печатать можно и без принтера. В файл. Для примера: установив doPDF в качестве принтера по умолчанию и код
Private Sub Form_Load()
Form1.PrintForm
End Sub
можно получить pdf файл с изображением пустой формы.

ForsMajor10 [30.06.2014 01:45]

перед использованием этой возможности необходимо выполнить первый запуск onenot... это норм?

pjp07190 [30.06.2014 11:55]

Можно формировать файлы в Word/Excell.

Stertor370 [30.06.2014 18:59]

Ахах, какой баян :)

[:/|||:]

pjp07190 [01.07.2014 12:19]

Автор, где продолжение? Интересная и полезная тема.

yulius [09.12.2014 14:10]

Добрый день! Я вот тоже ищу ответ на вопрос об Excel... Вот очень надо, чтобы Создавался файл Excel, а данные в него вносились согласно выбранных Combo на форме???????

pjp07190 [09.12.2014 15:18]

Вот маленький фрагментик VB6 по открытию Excell, формированию файла, его сохранения и закрытия Excell. А как записывать из ComboBox, думаю разберетесь. Или обращайтесь.

pjp07190 [09.12.2014 15:22]

rivate Sub Command1_Click()
Set appEx = CreateObject("Excel.Application")
appEx.Workbooks.Add
appEx.Columns("A:A").ColumnWidth = 11.86

appEx.ActiveSheet.Cells(1, 1).Font.Bold = True ' жирный шрифт
appEx.ActiveSheet.Cells(1, 1).Font.ColorIndex = 46
appEx.ActiveSheet.Cells(2, 1).Font.ColorIndex = 46
appEx.ActiveSheet.Cells(3, 1).Font.ColorIndex = 46
appEx.ActiveSheet.Cells(4, 1).Value = "Дата - Дата записи"
appEx.ActiveSheet.Cells(5, 1).Value = "Время - Время записи"
appEx.ActiveSheet.Cells(6, 1).Value = 123.456


appEx.ActiveWorkbook.SaveAs "c:\avar.xls"
appEx.ActiveWorkbook.Close
appEx.Quit

End Sub



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.