И снова печать!!!

[Max!]

Как из события Click сделать чтобы прога распечатала текст из трёх ТexBox'сов ! Правда я уже задавал похожий вопрос раньше но у меня нечего не выходит! Помогите заранее благодарен!

[Max!]

Люди help me это срочно!!

[xfolder]

chto tut slojnogo posilaesh na pechat soderjimoe etih textboxov i vse, delov to

[areh]

Если тебе при печати не надо всяких разных навотортов (типа печати на нестандартном для принтера формате, печати по диоганали и т.д.), то можешь спокойно использовать объект Printer

' TEXT - То что надо распечатать
Printer.Print (TEXT)

Так же можешь перемещать по странице точку вывода:

Printer.CurrentX = 500
Printer.CurrentY = 500

Только не забудь установить единицы измерения (я сейчас не помню как они называються, а ВБ6 у меня под рукой нету)

И в конце надо вызвать метод:

Printer.EndDoc()

Ну вроде бы примерно так

Ах да, он напечатает на принтере по умолчанию, если ты этого не хочешь смотри коллекцию Printers

И ещё, когда будешь работать с Printer.Print у тебя возможно начнуться запарки, во-первых, метода Print может быть не видно, а во-вторых, может не работать один из вариантов:

1:
Printer.Print ("TEXT 1")

2:
With Printer
.Print("Text 2")
End With

Удачи

[Max!]

Нет не надо мне примочек всяких мне просто надо что бы прога распечатала текст при нажатий на кнопку из 3ёх текстбоксов вот и всё!

И у меня не работают ети два способа!
1:
Printer.Print ("TEXT 1")

2:
With Printer
.Print("Text 2")
End With

[areh]

А что он тебе говорит?

[4udik]

1. printer.print text1.text
printer.print text2.text
printer.print text3.text
printer.enddoc

2. Open "LPT 1" For Output As #1
Print #1,text1.text
..........
Close #1

[Max!]

Он выдаёт такую ашибку
"Variable required" или "Can't assign to this expression" !!!

Может надо подключить какие библеотеки!

[Yurich]

Я вообще не нашел в объекте Printer функцию .Print ?!!

[Max!]

Так как тогда быть ? Есть ещё идей ?!

[Max!]

Люди help please!

[Max!]

Вот код каторый мне давали раньше но он не работает где здесь ошибка :

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

v formu:
Public Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
(ili private declare )

V knopku:
sub myprint()
on error goto errhdl
dim rc as rect
set prn = printers (1)
with rc
left = 10
top = 10
right = 400
bottom = 400
end with
drawtext prn.hdc, text1.text & chr(0), len(text1.text)+1, rc, DT_LEFT or DT_TOP
prn.enddoc
exit sub
errhdl:
msgbox "An error occured while printing to " & prn.devicename & ": " & err.description
end sub


Люди прошу вас ПоМоГиТе!!!Please!!!

[ShadowCaster]

...
Sub PrintAll()
Printer.Print Text1.Text
Printer.Print Text2.Text
Printer.Print Text3.Text
Printer.EndDoc
End Sub

У тебя должны быть 3 TextBox'а на форме с именами "Text1", "Text2", "Text3"

[Max!]

Что то не работает ! Я пишу этот код в событие Click может надо вдругое событие! Может надо подключить какие библиотеки или компоненты через project\Reference project\Components ?

[alibek]

Я пишу этот код в событие Click может надо вдругое событие!

мама... роди меня обратно...

[Max!]

Люди, шутки в сторону! Пожалуйста помогите, это срочно! И если можно, кодом и поподробнее.

[Yurich]

Вот этот код у меня кое-как, но работает

Sub myprint()
Dim t As String
Set Printer = Printers(0)
'Debug.Print Printer.DeviceName
t = Text1.Text
Printer.NewPage
TextOut Printer.hDC, 0, 0, t, Len(t) 'gdi32.dll
Printer.EndDoc
End Sub

[Max!]

Yurich , А можно Этот код

Sub myprint()
Dim t As String
Set Printer = Printers(0)
'Debug.Print Printer.DeviceName
t = Text1.Text
Printer.NewPage
TextOut Printer.hDC, 0, 0, t, Len(t) 'gdi32.dll
Printer.EndDoc
End Sub

Вставить в событие Click?

[Yurich]

Само собой разумеется:

Private Sub Command1_Click()
myprint
End Sub

кстати, строчка
Printer.NewPage
переводит страницу и подготавливает принтер к приему данных, а
Printer.EndDoc - заставляет напечатать страницу

[Max!]

А остальнои код куда в (General) или в модуль?

[Yurich]

Макс! Остальной код можно всовывать по желанию:
просто в форму, в модуль, класс и т.д.
Если будут еще вопросы, лучше пиши мне на мыло - траффик дорого обходится!
aula@ghost.dn.ua