Печать

[8Ball's]

Есть текстовое поле, кнопка печать, при её нажатии происходит CommonDialog1.ShowPrinter. Вопрос: как это настроить, чтобы печататалось содержимое текстового поля? Заранее спасибо!

[Хакер]

Есть текстовое поле, кнопка печать, при её нажатии происходит CommonDialog1.ShowPrinter. Вопрос: как это настроить, чтобы печататалось содержимое текстового поля? Заранее спасибо!

Неправильно. При нажамти просиходит Command1_Click(). А уж что дальше происходит, никому кроме тебя не изветсно.

Содержимое текстового поля хранится в ТекстовоеПоле.Text

Текст на принтер можно выводить кучей способов. Но самый простой - метод Print отлично работает.

[Arcanoid]

Насколько я помню, код типа того:

Код: Выделить всё

Open "LPT:" for Output As #1
Print #1, Text1.Text
Close #1


[Хакер]

Arcanoid
О ужас. Убери пока никто не видел.

[Arcanoid]

Хакер
А что не правильно?!

[Хакер]

Знаешь, вообще то давно уже есть не только матричные, но также струйные и лазерные принтеры. Тем более их бывает несколько (вот у меня дома например 2 стоит).

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

Не гадай. Я тебе сразу же скажу что нет

[8Ball's]

Поэтому я и хочу применить CommonDialog, чтобы выбрать принтер

[Хакер]

А... ну, как говорится, удачной печати. Конечно же юзай способ гражданина Arcanoid.

Он просто суперуниверсальный: не надо даже драйверов. Ай как всё легко и хорошо...

Ещё раз удачной вам обоим печати

[Arcanoid]

Да я уж и сам попробовал только что. На имя "LPT:" ругается...

стыдно

[8Ball's]

Собственно вопрос остается в силе: как через commonDialog вывести на печать содержимое текстового поля?

[Arcanoid]

А по поводу CommonDialog: стоит ли его вообще использовать? Это еще вопрос спорный... Особенно если тащить прогу на другой комп потом придётся.

[tyomitch]

Знаешь, вообще то давно уже есть не только матричные, но также струйные и лазерные принтеры. Тем более их бывает несколько (вот у меня дома например 2 стоит).

У меня был струйный принтер, который отлично понимал вывод текста в lpt1.
А вот компов с двумя LPT-портами я, признаюсь, ни разу в жизни не видел...

[Хакер]

Через комондиалог никак нельзя вывести что то на печать. Даже за очень большие деньги - ну совсем никак.

Через Объект Printer - запросто

[8Ball's]

Хакер

Истина где-то рядом:
Printer.print
как его использовать если у меня много принтеров?

[Arcanoid]

А вот под бурные апплодисменты выходит и сама её величество Истина!

Код: Выделить всё

    CommonDialog1.ShowPrinter
    Printer.Print "hello from printer!!!"
    Printer.Print Text1.Text
    Printer.EndDoc


Ещё вопросы у кого есть?

[Viper]

нды... а зачем тебе вызов диалога, ежели печатаешь на принтере по умолчанию? А если пользователь нажмет в диалоге кнопку "Отменить" все равно будешь печатать?

[Debugger]

У меня принтер даёт белиберду. Страницы 4. Почему?

[Хакер]

Хакер говорил что способ крив.... не слушали его...

[Arcanoid]

Ну тогда что можно ещё порекомендовать?!...

Раз такие способы не устраивают, то тогда добро пожаловать в дебри Win32 API! Там и побольше настроек, и возможностей, ну соответственно и возни...

[Setr]

Возможно так

Код: Выделить всё

With CommonDialog1
    .CancelError = True
    .Flags = cdlPDReturnDC + cdlPDNoPageNums
    If Text1.SelLength = 0 Then
        .Flags = .Flags + cdlPDAllPages
    Else
        .Flags = .Flags + cdlPDSelection
    End If
    .ShowPrinter
    If Err <> MSComDlg.cdlCancel Then
        Printer.Print Text1.Text
        Printer.EndDoc
    End If
End With

[tyomitch]

Гм, и всё равно печататься будет на дефолтном принтере

[Setr]

У меня печатает на том, который выбираешь.
Правда не уверен, что будет правильно работать печать выбранного фрагмента.