Объект Принтер

[mark+]

Если не трудно, разъясните пожалуйста три вопроса:

1. Как напечатать содержимое Text1 (TextBox)?
2. Как напечатать содержимое Picture1 (PictureBox)?
3. Как безболезненно (значит, чтобы ошибок не выскакивало) для моей программы, узнать, что принтера установленного по умолчанию в системе нет?

[Amed]

Private Sub cmdPrint_Click()
Dim oldcolor As Long
Dim oldstyle As Long

oldcolor=Me.ForeColor
oldstyle=Me.BorderStyle

Me.BorderStyle=0
Me.ForeColor=RGB(255,255,255)

'3) Может, анализируя DeviceName и DriverName можно узнать, что дефолтного принтера нема?
MsgBox Printer.DeviceName
MsgBox Printer.DriverName

'1)
With txtText
.Visible = False
Me.Print .Text
Me.PrintForm
.Visible = True
End With

'2)
With picPicture
Me.PaintPicture .Picture, 0, 0
.Visible = False
Me.PrintForm
.Visible = True
End With

Me.BorderStyle=oldstyle
Me.ForeColor=oldcolor
End Sub

[SSecurity]

короче пишем так ...
1 вопрос.

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

Printer.Print Text1
Printer.EndDoc


2 вопрос.

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

Printer.PaintPicture Picture1.Picture
Printer.EndDoc


3 вопрос.

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

If Printer.DriverName="" Then MsgBox "нет принтера у тебя"


[Amed]

Мона и так ... Только так у меня глючило дома... Не знаю почему, но глючило...

[SSecurity]

не знаю у меня все просто шикарненько сработало
но все от компа судя по всему зависит

[mark+]

Спасибо, попробую.

[SSecurity]

Успехов!