Текст

[Ян Машарский]

Please help!
Как распечатать текстовый файл не открывя его?

[tyomitch]

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

ShellExecute hWnd, "print", "myfile.txt", vbNullString, vbNullString, 0

[A.A.Z.]

И не забудь это добавить (в начало):

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

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

[Ян Машарский]

Всем Thanks! Щас попробую

[Ян Машарский]

Не работает. Выдаёт ошибку. Я могу распечатать тексть из переменной, но он печатается в одну строчку. а мне нужно печатать большие обьёмы.

[Ramzes]

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

Private Sub Form_Click()
Open "c:\1.txt" For Input As #1
    Do Until EOF(1)
    Line Input #1, t
    txt = txt + t & vbCrLf
    Loop
Close #1
Printer.Print txt
Printer.EndDoc
End Sub


Я вот так делаю, все нормально получаеться

[tyomitch]

:( Не работает. Выдаёт ошибку.

Какую именно ошибку выдаёт-то?

[Ян Машарский]

Типа функция не подходит Shell... Ramzes, печатает, но в одну строчку. Кстати с наступающим!

[tyomitch]

Давай не "типа", а какой у тебя конкретно код и какая конкретно ошибка. Телепаты на курорте

[Ян Машарский]

Пишет, что Only comments may appear after End Sub, End Function, or End Property(это для AZZ) и Sub or Function not defined. Я могу распечатать но печатает не как multiline.

[A.A.Z.]

1) Ну A.A.Z. я
2)

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

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 Sub Form_Load()
ShellExecute hWnd, "print", "myfile.txt", vbNullString, vbNullString, 0
End Sub

[Ruslan Demidow]

:( Не работает. Выдаёт ошибку. Я могу распечатать тексть из переменной, но он печатается в одну строчку. а мне нужно печатать большие обьёмы.

Ты определись откуда печатаешь: или текст из файла не открывая его или текст из переменной.

[A.A.Z.]

2 All: я понял! Г-н Ян Машарский под словами "не открывая его" имел ввиду "не открывая его в блокноте или еще где-нибудь" Я прав?

[RayShade]

А давайте в Новом Году всех, кто задает вопросы типа "открыть не открывая" или "аа! у меня ошибка, что делать?" без указания ясно того, что за ошибка и так далее, будем банить сразу, а?

[Ян Машарский]

Всем привет! Обьясняю в чём дело. Я пишу тест результаты (характеристика) сохраняю в файл и предлгаю его распечатать. Текст печатается в не как multiline. Вот и вся проблема.

[Ruslan Demidow]

Всем привет! Обьясняю в чём дело. Я пишу тест результаты (характеристика) сохраняю в файл и предлгаю его распечатать. Текст печатается в не как multiline. Вот и вся проблема.

А сохраняешь его как? Может быть тоже одной строкой?
Если у тебя в текстовом поле установлено MultiLine=True, это не значит что в файл у тебя запишется тоже построчно. Запишется как раз одной строкой.
Нужно програмно в строки вставлять vbCrLf.

[tyomitch]

Пять раз уже предложенный способ - например, тут ( http://bbs.vbstreets.ru/viewtopic.php?p=82621#82621 ) - разобьёт текст на строчки автоматически.

[Ramzes]

Я не знаю что там и как, но мой пример точно печатает, и не в одной строке, а записывать действительно надо так.

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

dim qwe as string
for q =1 to 10
qwe=qwe+"твой текст" & vbcrlf
next


в итоге получиться:

твой текст
твой текст
твой текст
твой текст
твой текст
твой текст
твой текст
твой текст
твой текст
твой текст

и печатать так как я написал, то все нормально получаться, и вообще тут все работает

[Ян Машарский]

Всем громное СПАСИБО!!! Я разобарлся. Всё работает.