Печать из RichTextBox

[basicom]

В RichTextBox выводится отчёт, затем на принтер, установленный по умолчанию:
Printer.Print MyForm.RichTextBox.Text
Printer.EndDoc
Результат:
1.Матричный типа LX-300 печатает тоько первую страницу, если не рулонная бумага.
2.Лазерный типа Canon LBP-810 из W98 печатает нормально, а из W95 только первый лист, а остальные пустые
Кто встречался с этим плиз help!
Может на страницы как разбить и поочереди - подскажите если не в ломы

[John_mc]

Сойдёт такое решение проблемы?

Перенеси содержимое в Word, а из Word'a и печатай:

comGen.CancelError = True
On Error GoTo ОбработкаОшибки
With comGen
.ShowPrinter
.PrinterDefault = True
End With
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
With objWord
.Documents.Open FileName:=ИмяФайла
.ActiveDocument.PrintOut
Do While objWord.BackGroundPrintingStatus <> 0
DoEvents
Loop
.Quit
End With
Set objWord = Nothing
Exit Sub
ОбработкаОшибки:
If Err.Number <> cdlCancel Then
MsgBox "Произошла ошибка " & Err.Description
End If

[basicom]

К сожалению нет
На машине кроме W95, программы и дров ничего нет-Flash 256MB

[RayShade]

А что, RTB.SelPrint метод не подходит? Получаем DC принтера, потом выделяем полностью весь текст в боксе и все.

[basicom]

А как программно выделить весь текст в RTB?

[basicom]

RayShade: Спасибо за помощь!
И вправду если ничего не выделять в RTB, то печатает всё по умолчанию и это главное.
P.S. Глаза не верят что делают руки!

[basicom]

Ещё пара вопросов(у меня Help по RTB куда-то подевался):
1. Как выставить поля при печати из RTB, хотя бы левое?
2. Как изменить шрифт для печати, но чтобы на форме в RTB не менялся? (FontSize не работает) или ссылки на подробный Help ?
P.S. Точнее Printer.FontSize работает, если печатать так:
Printer.Print RTB.Text
но если выделенный текст:
RTB.SelPrint (Printer.hDC)
то печатает шрифтом RTB, а я хочу чтобы в RTB была 8-я кегля, а на бумаге 12 или 14

[basicom]

Непонятно почему, но через ShowFont тоже не работает постановка шрифтов?
Help me programmers

[RayShade]

Ты по-моему хочешь невозможного У тебя будет всегда одна кегля и на бумаге и в самом RTB.

[cg_ck]

Смею посоветовать тебе создать два элемента? оди для отображения на форме? другой аналогичный для печати. Что бы изменить шрифт программно, выдели его программно и используй(напряг мозгу, могу и ошибатся) .selfont = ...
Точно не помню, когда то как-то так делал.