各个label字形大小不同,printer好像无法支持
printform的话,又要打印form,
而我,要的只是form上的内容
水平有限,请尽量详细点,谢谢
(例如
用GUI+来取得要打印坐标以图形的方式打印出来...
只有这一句,对我来说无异天书) 

解决方案 »

  1.   

    dim c as control
    for each c in me.controls
       if not typeof c is label then c.visible=false
    next然后 printform
      

  2.   

    各个label字形大小不同,printer好像无法支持
    =============
    支持的:
    set printer.font = label.font
      

  3.   

    Private Sub Command1_Click()
    Printer.Font.Name = "宋体"
    Printer.Font.Size = 16
    Printer.CurrentX = 100
    Printer.CurrentY = 200
    Printer.Print Label1.Caption
    Printer.EndDoc
    End Sub
      

  4.   

    of123 兄的办法,回去试试,希望form消失
    fuxc(Michael(继续迷茫)),也要回去试试
    kxyzjm(kxyzjm)的方法,打印一句好像就要换页,也不行啊
      

  5.   

    Private Sub Command1_Click()
    Printer.Font.Name = "宋体"
    Printer.Font.Size = 16
    Printer.CurrentX = 100
    Printer.CurrentY = 200
    Printer.Print Label1.Caption
    Printer.Print Label2.Caption
    Printer.Print Label3.Caption
    Printer.Print Label4.Caption
    Printer.Print Label5.Caption
    Printer.EndDoc
    End Sub
      

  6.   

    汉...给错分了...
    正确答案是fuxc兄(printer可以支持动态改变)
    提请版主处理...