问一个关于picture的打印的问题!!!不知道你以前做过没有??

Question

我想实现下面的三个功能:
1,在picture中显示                     model: 123456
             type:332-005
             date:2003-01-01
 
2, "model:123456" 使用字体1 
   "type :332-005 " 使用字体23,把picture打印出来

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Printer.PaintPicture picture1.Picture, 0, 0
    Printer.EndDoc
End Sub

Answer 2

private sub print_click() 
   me.picture1.font="字体1"
   me.picture1.currentx =??
   me.picture1.currenty=??
   me.picture1.print "model:123456"
   
   me.picture1.fornt="字体2"
   me.picture1.currentx =???
   me.picture1.currenty=???
   me.picture1.print "type:332-005" ‘打印
 end sub

Answer 3

第二种方法，用printer对象：
printer.font="字体1"
printer.fontsize=20
printer.currentx=??
printer.currenty=??
printer.print "model:123456"

Answer 4

那我怎么样使内容在picturebox中居中呢??

Answer 5

我的意思是,不论是用多大的打印纸,程序都会把picture打印在纸的中间