帮忙看一下代码有何错误，先谢过了！（代码很短）

[jary12581]

private sub command1_click()
dim printer1 as printer
printer1.fontsize=20
……
……
end sub
用printer对象进行打印，在初始化时提示如下错误----"对象变量或with块未设置"
我试着进行如下修改：
dim printer1 as printer
set printer1=new printer
但运行时仍有如上错误，请高手帮帮忙！

[hxy1982]

该说的都说了

[QINYUEH]

up

[snail2011]

直接用此PRINTER.
用此可以直接输入的.

[iiboy]

使用Printer对象时,不需再定义新的Printer对象变量.直接使用就行.

[射天狼]

Printer是VB系统的内部对象,不用声明,直接使用就行了.

[脆皮大雪糕]

迟到！同意楼上！

[didishu0807]

直接printer.fontsize=20

[ajsword]

直接用printer.fontsize 就行了

[lxcc]

Private Sub Command1_Click()
Printer.FontSize = 20
Printer.PaintPicture Picture1.Picture, 0, 0
Printer.EndDoc
End Sub