Распечатка ... Срочно!!!

[Max!]

Как зделать кнопку с камандои которая заставляет принтор распечатать текст в текстбоксе и оброботчик ошибок к этои команде! ПОМОГИТЕ!!!

[RayShade]

Ну наверное так:



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



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

[Max!]

Поясни первыи код надо вводить в модуль а второи в кнопку , или нет!

А если мне надо распечатать не с одного текст бокса а с двух , Можно так написать :


drawtext prn.hdc, text1.text & chr(0), len(text1.text)+1, rc, DT_LEFT or DT_TOP


drawtext prn.hdc, text2.text & chr(0), len(text1.text)+1, rc, DT_LEFT or DT_TOP

[RayShade]

Тогда переопредели координаты области это раз и указывай правильную длину текста это два.



А насчет указания - все можно запихать в код формы.

[Max!]

Можешь пояснить подробнее !

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
Этот код надо запихать в модуль или нет?

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

А Этот в кнопку?

[RayShade]

Дался тебе этот модуль!



sub myprint можно вызывать из кнопки.



А остальной код можно запихать в начало кода формы. Что тут непонятного? Только напиши private declare вместо public.

[Max!]

Спасибо я понял ! Последнии вопрос! Как будет выглядеть код если мне нужно расспечатать код с двух текстбоксов? Например:
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
drawtext prn.hdc, text2.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

[RayShade]

Можно попробовать так:

drawtext prn.hdc, text1.text & chr(0), len(text1.text)+1, rc, DT_LEFT or DT_TOP

drawtext prn.hdc, text2.text & chr(0), len(text1.text)+1, rc, DT_LEFT or DT_BOTTOM



Да, забыл, константы имеют такие значения:



Const DT_TOP = &H0

Const DT_BOTTOM = &H8

Const DT_RIGHT = &H2

Const DT_LEFT = &H0

[Max!]

Спасибо большое!!!

[Max!]

Вот ошибка !! Я разместил Этот код: 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 в форму вместо : Private Form_load()
и мне после кампеляции выдает ошибку и обведена : 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 ЭТА СТРОЧКА ! ВЧЕМ ДЕЛО ПОМОГИТЕ!

[RayShade]

Во первых, что за ошибка и потом я тебе сказал, что если это размещается в коде формы, то надо писать private declare. Выше же написено.

[GSerg]

Нельзя публичные объявления в форме делать, только private.


Черт! На одну минуту!

[Max!]

Да пробовал и private компилятор всеравно выдает эту ошибку :

"Only comments may appear after End Sub, End Function, or End Property" Что Это Такое??

[RayShade]

Это от того, что декларация должна идти в самом начале кода.

[Max!]

СПОСИБО!!! Все работает!

[RayShade]

Ну наконец-то!