Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Создание отчето... 65022
Модуль Forms 64813
Пример работы с... 63168
ТЕХНОЛОГИИ ДОСТ... 61529
Имитационное мо... 57365
Реклама
Сейчас на сайте
Гостей: 10
На сайте нет зарегистрированных пользователей

Пользователей: 13,081
новичок: Abdukarimov A
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование ЭВМ на GPSS (три класса заданий) + Пояснительная записка
Движение шарика в эллиптическои параболоиде на Delphi [OpenGL] + Блок схемы
Игра Sokoban на Delphi + Блок схемы

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Печать документа



После настройки и просмотра документа можно перейти к его печати. Пе-
чать документа осуществляется методом Printout. Синтаксис вызова этого
метода:
Printout(from, To, Copies, Preview, ActivePrinter, PrintToFile, Collate);



Аргументы метода, их тип и назначение представлены в табл. 15.2.
Таблица 15.2. Аргументы метода Printout

При использовании метода PrintOut без аргументов печать будет выполнена
в режиме "по умолчанию". Этот метод можно использовать с любым набо-
ром аргументов. Если в системе установлен не один, а несколько принте-
ров, то, чтобы использовать один из них, нужно при вызове метода PrintOut
задать в аргументе ActivePrinter его имя. Чтобы получить список установ-
ленных в системе принтеров, используем стандартный объект Delphi
TPrinter (см. следующую процедуру).
Получение списка принтеров, установленных в системе
procedure TForm1.ButtonlClick(Sender: TObject);
var a_:integer;
pr:TPrinter;
begin
ListBoxl.Items.Clear;
pr:=TPrinter.Create;
for a_:=0 to pr.Printers.Count-1 do
ListBoxl.Items.Add(pr.Printers[a_]);
pr.Free;
end;



На рис. 15.8 представлен компонент ListBox (список) с загруженным переч-
нем установленных в системе принтеров.
Чтобы для печати документа использовать один из принтеров, имя которого
находится в списке ListBox, достаточно выполнить следующую процедуру.
Выбор активного принтера и печать документа
procedure TForm1.Button11Click(Sender: TObject);
begin
Е.ActivePrinter:=ListBoxl.Items.Strings[ListBoxl.Itemlndex];
E.ActiveWorkBook.Printout(ActivePrinter:=
ListBoxl.Items.Strings[ListBox1.Itemlndex]);
end;.




Рис. 15.8. Список установленных в системе принтеров
Важно!
При выполнении этой процедуры возможны ошибки, связанные с отличием
форматов представления имени принтера в объекте TPrinter и имени, исполь-
зуемого при вызове метода Printout. Например, если имя принтера для объекта
TPrinter представляет собой строку:
"HP DeskJet 850C on LPTlj",



то при вызове метода Printout необходимо использовать несколько видоизме-
ненную строку:
"HP DeskJet 850C (LPT1:)".


Опубликовал Kest October 05 2009 00:38:33 · 0 Комментариев · 6440 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
ActiveX в Delphi
Visual Studio 200...
Strawberry Prolog...
Abc_component
Java 2. Наиболее ...
Иллюстрированный ...
Распознавание тек...
Конвертирование и...
Allsubmitter 4.7 ...
Программа предназ...
Matrix2D
Библия хакера 2. ...
CoolHints2k v1.03
Как программирова...
Создание оригинал...
Быстрое создание ...
Панель статистики...
Формирование отче...
CaptionButton
Андрей Боровский....

Топ загрузок
Приложение Клие... 100464
Delphi 7 Enterp... 86596
Converter AMR<-... 20076
GPSS World Stud... 12626
Borland C++Buil... 11745
Borland Delphi ... 8555
Turbo Pascal fo... 7037
Visual Studio 2... 4998
Калькулятор [Ис... 4759
FreeSMS v1.3.1 3541
Случайные статьи
Разработка чужими ...
Блок TABULATE
HTPC
Создание и использ...
5.1. ЦЕЛЬ: УПРОЩЕН...
Зумирование с фото...
ВВОД ИНФОРМАЦИИ С...
Компонент поле ред...
Методы проверки со...
Область Range
Шрифт
Операции управлени...
Изоморфизм д.з.к. ...
WDTABLE (РАЗНОСТНА...
Плотность изображе...
Стандарт RS-449
Ждать последующих ...
Мы можем вынести о...
Программирование C...
Игра «Выдающийся ум»
777 игровые автома...
коммутируемых и VP...
Содержание
Процедура ClearDev...
Предложения, факты...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?