Как распечатать *.txt файл из VB

[Rodos]

Как распечатать *.txt файл из VB?

[Prickly]

Printer.Print str1
Printer.EndDoc

[tyomitch]

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

Shell "notepad /p файл.txt"

[Rodos]

Код:
Shell "notepad /p файл.txt"

Не работает! Говорит, что файл не найден, хотя путь правильный.

[Rodos]

При печати *.txt файла должно появиться окно с выбором принтера и т.д. (как при нажатии в Блокноте Ctrl+P). В интернете нашел несколько советов, но все равно ничего не получаеться.

Советы из Итернета:

Запускаешь notepad с помощью ShellExecute, затем находишь окно notepad'а с помощью FindWindow, берешь его менюшку GetMenu и GetSubMenu и посылаешь сообщение WM_COMMAND (SendMessage) окну с идентификатором пункта меню (GetMenuItemID). Вот и диалог печати.

В General Declaration объявить:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Const SW_HIDE = 0


В коде поставить следующую ком[sensored]у:

ShellExecute Me.hwnd, "print", App.Path & "\Print.txt", "", App.Path, SW_HIDE



Есть одно условие: должна быть привязка файла по умолчанию к Блокноту.

Ну что скажите?

[Amed]

Тёмыч

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

Shell "notepad /p ""файл.txt"""

[Rodos]

Круто! Код заработал! А можно как-нибудь сделать, чтобы появлялось стандартное окно с выбором принтеров и т.д.?

[Amed]

Инструкции.

Идём на www.mentalis.org
Качаем оттуда API-Guide.
Смотрим в API-Guide функцию PrintDialog. Пример прилагается.

[Rodos]

К приложенному API добавляю:

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

Private Sub Command7_Click()
Command5 = True 'ShowPrinter
Shell "notepad /p ""G:\123.txt"""
End Sub

Окно с принтерами появляется, а настройки не применяются.

[Rodos]

А можно ли распечатать RTF вместо TXT. Просто его легче редактировать, да WordPad у всех есть.

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

Private Sub Command7_Click()
Shell "wordpad /p ""файл.rtf"""
End Sub

У меня не получилось.

[Rodos]

Amed, как заставить PrintDialog применять настройки к распечатываемому документу?

[Rodos]

Ладно, про настройки не отвечаете. Тогда хотя бы скажите, можно распечатать RTF документ из VB?

[BV]

2 Rodos

Медленно прочти весь топик сначала. Истина рядом.

[Rodos]

Это ты про советы из Интернета?

[BV]

Инструкции.

Идём на www.mentalis.org
Качаем оттуда API-Guide.
Смотрим в API-Guide функцию PrintDialog. Пример прилагается.

[Rodos]

Уже пробовал, появляется нужная мне форма с принтерами, но то что я на ней нажал не применяется к моему файлу. Вернее я не знаю как ее прикрепить к моему файлу.

[Rodos]

Вот еще нашел:

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

Private Sub cmdPrint_Click()
    StopPrinting = False
' Set CancelError is True
On Error GoTo errhandler
   
    CommonDialog1.PrinterDefault = True
    CommonDialog1.CancelError = True

    ' Устанавливаем флаги
    CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
    CommonDialog1.ShowPrinter

    Printer.Print '!!!Что здесь надо вписать, чтобы распечатался txt-файл 
    Printer.EndDoc
    Exit Sub
errhandler:
    Select Case Err
    Case 32755 '  В диалоге нажата кнопка "Отмена" (Cancel)
        MsgBox "you cancelled the dialog box"
    Case Else
        MsgBox "Unexpected error. Err " & Err & " : " & Error
    End Select
End Sub


[BV]

У 'Printer' есть свойства, а PrintDialog возвращает их значения.

[Andrey Fedorov]

Ладно, про настройки не отвечаете. Тогда хотя бы скажите, можно распечатать RTF документ из VB?

У RichTextBox есть метод SelPrint, кстати...

[Smith68]

Копируешь всё в блокнот и не паришься!!!

[skord]

Smith68
Перечитай вопрос

[grindars]

А можно ли распечатать RTF вместо TXT. Просто его легче редактировать, да WordPad у всех есть.

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

Private Sub Command7_Click()
Shell "wordpad /p ""файл.rtf"""
End Sub

У меня не получилось.

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

Private Sub Command7_Click()
Shell "write /p ""файл.rtf"""
End Sub

[Rodos]

grindars, спасибо. Команда работает, да вот только печатает не на том принтере. Ну никак не могу решить проблему с выбором принтеров.

[Amed]

Используем коллекцию Printers для выбора нужного.

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

dim p as Printer
For Each p In Printers
    If p.DeviceName = "hp photosmart 7200 series" Then
        Set Printer = p
    End If
Next p

[Rodos]

Мне же надо, чтобы пользователь имел выбор, на каком принтере ему напечатать.

[Rodos]

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

Private Sub Command1_Click()
Shell "write /p ""файл.rtf"""
End Sub

С этим кодом я бы уже мог бы сделать программу, но сталкнулся с ситуацией, что в принтере кончился тонер, а во втором (сетевом) его еще много. Ну и что должен делать пользователь, если у него такая же ситуация? Вот по этому мне и нужен выбор принтеров. Причем можно даже только, чтобы одни принтеры выбирались, без других параметров. Просто я думаю, что вызвать готовое стандартное окно было бы легче.

Может есть у кого-нибудь похожий исходник?

[BV]

Таки зайди на http://msdn.microsoft.com

[Rodos]

На MSDN ничего похожего нет.

Вот нашел подсказки:

Запускаешь notepad с помощью ShellExecute, затем находишь окно notepad'а с помощью FindWindow, берешь его менюшку GetMenu и GetSubMenu и посылаешь сообщение WM_COMMAND (SendMessage) окну с идентификатором пункта меню (GetMenuItemID). Вот и диалог печати.

И еще:

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

{
if (show_question("Напечатай вопрос прямо здесь "))
{
file_open_write("file.txt");
file_write_string("Page");
file_writeln();
file_write_string("Напечатайте то что хотите ");
file_writeln();file_writeln();file_writeln();file_writeln();
file_writeln();file_writeln();file_writeln();file_writeln();
file_write_string("");
file_close();
execute_shell("C:\WINDOWS\NOTEPAD.EXE","/p file.txt");
}
}

Как должен выглядеть код в VB?

[tyomitch]

И еще:

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

{
if (show_question("Напечатай вопрос прямо здесь "))
{
file_open_write("file.txt");
file_write_string("Page");
file_writeln();
file_write_string("Напечатайте то что хотите ");
file_writeln();file_writeln();file_writeln();file_writeln();
file_writeln();file_writeln();file_writeln();file_writeln();
file_write_string("");
file_close();
execute_shell("C:\WINDOWS\NOTEPAD.EXE","/p file.txt");
}
}

Как должен выглядеть код в VB?

http://bbs.vbstreets.ru/viewtopic.php?p=156182#156182

[BV]

На MSDN ничего похожего нет.

Медленно прочти весь топик сначала. Истина рядом.