Private Sub Form_Load()
Dim objPrinter As Printer

For Each objPrinter In Printers
If objPrinter.DeviceName = frmPrint.cmbPrint(1).Text Then
ToUp:
DrawPreview
On Error GoTo errHandler

If frmPrint.chkPrint(0).value = 1 Then
If MyOrientation = 0 Then
objPrinter.Orientation = 0
Else:
objPrinter.Orientation = 1
End If
Else:
objPrinter.Orientation = PaperOrientation
End If

objPrinter.PaperSize = PaperFormat
objPrinter.PrintQuality = 300
objPrinter.ColorMode = TypePrint

objPrinter.PaintPicture Me.Picture1.Image, 0, 0


If MyOr = 1 Then objPrinter.NewPage: GoTo ToUp
If MyOr = 2 Then objPrinter.NewPage: GoTo ToUp

np = 0
objPrinter.EndDoc

Exit For
End If
Next objPrinter

Unload Me
Exit Sub

errHandler:
MsgBox "Íà ïîëó÷èëîñü ðàñïå÷àòàòü äîêóìåíò, îáëîì!", vbOKOnly, "Cancel"
Unload Me
np = 0
End Sub


При выполнении строки с objPrinter выскакивает ошибка(383 - свойство только для чтения). Чего-то не понимаю?

Ошибка в любой строке, гда есть objPrinter.
В строке:
objPrinter.PaintPicture Me.Picture1.Image, 0, 0
Ошибка немного иная - объект не поддерживает такого свойства или метода.

Решение:
Private Sub Form_Load()
Dim objPrinter As Printer

For Each objPrinter In Printers
If objPrinter.DeviceName = frmPrint.cmbPrint(1).Text Then
Set Printer = objPrinter
End If
Next objPrinter

ToUp:
DrawPreview
On Error GoTo errHandler

If frmPrint.chkPrint(0).value = 1 Then
If MyOrientation = 0 Then
Printer.Orientation = 1
Else:
Printer.Orientation = 2
End If
Else:
Printer.Orientation = PaperOrientation
End If

Printer.PaperSize = PaperFormat
Printer.PrintQuality = 300
Printer.ColorMode = TypePrint

Printer.PaintPicture Me.Picture1.Image, 0, 0


If MyOr = 1 Then Printer.NewPage: GoTo ToUp
If MyOr = 2 Then Printer.NewPage: GoTo ToUp

np = 0
Printer.EndDoc


Unload Me
Exit Sub

errHandler:
MsgBox "Íà ïîëó÷èëîñü ðàñïå÷àòàòü äîêóìåíò, îáëîì!", vbOKOnly, "Cancel"
Unload Me
np = 0
End Sub