|
[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ] |
Формирование и вывод отчетов на принтерОдним из наиболее важных и трудоемких процессов в написании программ на VB является создание твердых копий документов. Существуют следующие способы создания отчетов: 1. Cоздание отчетов с помощью Crystal Reports. 2. Создание отчетов с использованием генератора отчетов приложения Access 97. 3. Создание отчетов с использованием непосредственной пересылки команд принтеру. 4. Создание отчетов с использованием объекта Printer языка Visual Basic. 1.Crystal Reports.
2.Генератор отчетов из Access 97.
3.Непосредственная пересылка данных на принтер.
4.Использование объекта Printer языка Visual Basic.
Печать текста с использованием объекта Printer осуществляется следующим образом: задаются координаты печати с помощью свойств CurrentX и CurrentY, а затем используется метод Print. Пример печати в абсолютных координатах: Printer.CurrentX = 1440 Printer.CurrentY = 1440 Printer.Print "Проблемы печати отчетов" 'Физическое выполнение печати и выдача листа бумаги Printer.EndDoc Но обычно гораздо удобнее принудительно разделить весь лист на зоны печати и при позиционировании использовать ScaleHeight и ScaleWidth, т.е. относительные координаты. Dim X, Y, c As Integer Dim title As String title="Проблемы печати отчетов" 'Установка зон печати - лист делится на 100 зон по горизонтали 'и 50 зон по вертикали x = Printer.ScaleWidth * 0.01 Y = Printer.ScaleHeight * 0.02 'Установка текущего шрифта Printer.FontName = "Arial cyr" 'Установка размера шрифта Printer.FontSize = 8 'Вычисление координаты X для печати заголовка по центру листа Printer.CurrentX = (Printer.ScaleWidth - Printer.TextWidth(title)) / 2 Printer.CurrentY = Y * c Printer.Print title 'Увеличение значения счетчика строк на единицу c = c + 1 'Увеличение толщины линии Printer.DrawWidth = 2 'Печать горизонтальной линии длиной с 8 до 94 позиции Printer.Line (x * 8, Y * c)-(x * 94, Y * c) Printer.DrawWidth = 1 Printer.EndDoc |
|
|
|
>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью >>>Если вы хотите задать вопрос пишите--------> Мне нужна помощь |
|
|
|