Печать RichEdit без диалога печати

[artemavd]

Добрый вечер!
Мне нужно отправить содержимое RichEdit на печать, но не используя диалог печати, т.е. чтобы пользователь нажал только на кнопку и содержимое RichEdit сразу было отправлено на печать. Нашел код, для определения установленных принтеров:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Assign(Printer.Printers);
end;

или так:

procedure TForm1.Button1Click(Sender: TObject);
var
m: TRegistry;
i: integer;
l: TstringList;
s: string;
begin
m := TRegistry.Create; l := TStringList.Create;
s := '\System\CurrentControlSet\Control\Print\Printers';
m.RootKey := HKEY_LOCAL_MACHINE;
m.OpenKey(s, false);
m.GetKeyNames(l); // получаем список принтеров
m.CloseKey;
ListBox1.Items.Clear;
for i := 0 to l.Count - 1 do begin
m.OpenKey(s + '\' + l[i], false); 
ListBox1.Items.Add(m.ReadString('Name'));
m.CloseKey;
end;
m.Free;
l.Free;
end;

В связи с этим есть пара вопросов:
1. Можно ли осуществить такую печать?
2. Как определить из установленных принтеров какой из них установлен по умолчанию? Чтобы потом можно было легко сделать пункт №1.
3. Будет ли код выше корректно работать в Windows 7?
Дома нет возможности проверить, т.к. нет принтера, только на работе смогу. Прошу помощи.


--------------
Хорошо, оба варианта по определению установленных принтеров, работают хорошо.
Вопрос тогда остается такой: как отправить содержимое RichEdit на печать, заранее указав на какой принтер отправлять выбрав его из списка найденных принтеров? Чтобы сразу начиналась печать, без диалогов о печати.

[Stilet]

Как определить из установленных принтеров какой из них установлен по умолчанию? Чтобы потом можно было легко сделать пункт №1.

Насколько я понимаю, если просто посылать на печать - она будет идти на принтер по умолчанию

Дома нет возможности проверить

Виртуальные принтера ставь. в Севене кстати есть XPS принтер. проинсталь его из компонентов Винды и пользуйся.

[artemavd]

Насколько я понимаю, если просто посылать на печать - она будет идти на принтер по умолчанию

А диалог настройки печати будет появляться?

в Севене кстати есть XPS принтер. проинсталь его из компонентов Винды и пользуйся.

Да его вроде не надо ставить, он уже установлен в системе и если реальный принтер не подключен, то открывается диалог сохранения в XPS файл.
Что произойдет, если выполнить этот код и в системе есть установленный принтер:

procedure TMainForm.sBitBtn1Click(Sender: TObject);
begin
 sRichEdit1.Print();
end;

???

[Аватар]

У меня просто в очередь на печать ставит к умолчательному принтеру. Кроме принтера еще пару виртуальных устройств. Не предлагает сделать выбор и поменять настройки

[Stilet]

А диалог настройки печати будет появляться?

А это от принтера зависит. Виртуальники типа XPS конечно диалог покажут, надо же им спрашивать куда файл сохранять. А обычные принтера должны сразу печатнуться

[artemavd]

Хз, завтра попробую на работу отправить на печать на принтер по умолчанию, посмотрим что будет.