Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/15: Рейтинг темы: голосов - 15, средняя оценка - 4.80
0 / 0 / 1
Регистрация: 03.06.2011
Сообщений: 42
1

Имя принтера в label1

08.07.2011, 11:15. Показов 2904. Ответов 8
Метки нет (Все метки)

Уважаемые знатоки, помогите вывести имя принтера в компонент Label1...
Если это вообще возможно!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2011, 11:15
Ответы с готовыми решениями:

Сетевое имя принтера
Здравствуйте. В ComboBox я вывожу список принтеров которые установлены на ПК. Подскажите как узнать...

Как на компоненте Label отобразить имя текущего принтера?
Из моего приложения идёт печать Excel-евсокого файла. Нужно, чтобы отображалось имя принтера при...

Имя сетевого принтера
После переустановки винды и расшаривания принтера пришлось заново устанавливать его на других...

Считать имя принтера из журнала событий
Здравствуйте знатоки форума! Возникла одна интересная задача для решения которой перерыл уже все,...

8
2184 / 1254 / 143
Регистрация: 28.04.2010
Сообщений: 4,592
08.07.2011, 11:25 2
какого именно? по умолчанию который установлен?
0
19 / 19 / 5
Регистрация: 26.05.2011
Сообщений: 65
08.07.2011, 11:37 3
Delphi
1
2
3
4
5
6
7
function GetDefaultPrinterName: String;
var
  buf : array[0..255] of char;
begin
  GetProfileString('Windows', 'device', '', buf, 255);
  Result := StrPas(buf);
end;
1
0 / 0 / 1
Регистрация: 03.06.2011
Сообщений: 42
08.07.2011, 12:06  [ТС] 4
Цитата Сообщение от anonimus Посмотреть сообщение
какого именно? по умолчанию который установлен?
Да, который по умолчанию

Добавлено через 21 минуту
Цитата Сообщение от MikkiMouse Посмотреть сообщение
Delphi
1
2
3
4
5
6
7
function GetDefaultPrinterName: String;
var
  buf : array[0..255] of char;
begin
  GetProfileString('Windows', 'device', '', buf, 255);
  Result := StrPas(buf);
end;
А как в label вывести?
0
5623 / 2223 / 462
Регистрация: 20.11.2009
Сообщений: 7,460
Записей в блоге: 1
08.07.2011, 12:12 5
Delphi
1
Label1.Caption := GetDefaultPrinterName;
2
0 / 0 / 1
Регистрация: 03.06.2011
Сообщений: 42
08.07.2011, 13:06  [ТС] 6
Огромное спасибо всем!
Всё получилось

Добавлено через 47 минут
Теперь возникла следующая проблема, как осуществить печать текста с компонента RichEdit1? ;(
0
5623 / 2223 / 462
Регистрация: 20.11.2009
Сообщений: 7,460
Записей в блоге: 1
08.07.2011, 13:25 7
кинь на форму принтдиалог, и им работай
0
0 / 0 / 1
Регистрация: 03.06.2011
Сообщений: 42
08.07.2011, 13:32  [ТС] 8
if PrintDialog1.Execute then ...// я не знаю что после этого писать
0
5623 / 2223 / 462
Регистрация: 20.11.2009
Сообщений: 7,460
Записей в блоге: 1
08.07.2011, 18:53 9
Delphi
1
2
3
4
5
6
7
8
uses Printers;
--------
begin
var Pr: TPrinter;
begin
if PrintDialog1.Execute then
  Pr.Title := RichEdit1.Text;
end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.07.2011, 18:53

Как передать русское имя принтера в cmd-скрипте?
Добрый день. Пишу скрипт для автоматического добавления принтеров через...

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

Подключение обычного лазерного принтера вместо принтера чеков в 1с предприятие 8 (ресторан)
Добрый день! Подскажите реально подключить к 1с предприятие 8 Ресторан вместо принтера чеков...

Выбор принтера через форму и перенастройка принтера для отчетов
Добрый день. Очень нужна помощь. Накидал простенькую бд для примера. Есть форма Form1, где...

Как в билдере получить с сервера (MySQL 5.1, имя базы "skola", имя table "info") имя столбцов и имя строк
Доброва времены суток Как в билдере получить с сервера (MySQL 5.1, имя базы "skola", имя table...

Дано полное имя файла, т.е путь к файлу, имя и расширение. Выделить из строки только имя первого католога
Помогите пожалуйста!!! Залание: Дано полное имя файла, т.е путь к файлу, имя и расширение....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru