以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  请教:绘图板在窗口中不能打印?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=4326)

--  作者:yangming
--  发布时间:2009/9/14 9:31:00
--  请教:绘图板在窗口中不能打印?
做了个相片排版系统,动态生成N个小绘图板,动态加上相片,结果发现打印时没有显示出相片,是不是没有开通此功能?
--  作者:狐狸爸爸
--  发布时间:2009/9/14 9:32:00
--  
当时在老程的要求下,已经开通,可以打印.
--  作者:yangming
--  发布时间:2009/9/14 10:12:00
--  

还是用这个打印代码?我打不出来
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()


--  作者:狐狸爸爸
--  发布时间:2009/9/14 10:29:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目67.rar


--  作者:yangming
--  发布时间:2009/9/14 10:52:00
--  
我在你的例子的基础上做了个,你看看,我发现,动态加的绘图板打印不出来
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目67.rar

[此贴子已经被作者于2009-9-14 10:53:31编辑过]

--  作者:狐狸爸爸
--  发布时间:2009/9/14 10:57:00
--  
Dim p As WinForm.Painter = e.Form.Controls("Painter1")
Dim g As Graphics = p.Graphics
g.DrawImage(getImage("Water lilies.jpg"),10,10)
p.Repaint()
Dim A As WinForm.Painter
    A = e.Form.CreateControl("Painter2" , ControlTypeEnum.Painter)
   A.Left = 235
    A.Top = 16
    A.Width = 194
    A.Height = 169
    e.Form.AddControl(A)
a.Printable = True

--  作者:yangming
--  发布时间:2009/9/14 11:03:00
--  
我发现,放在面板中的绘图板仍然无效
--  作者:yangming
--  发布时间:2009/9/14 14:14:00
--  
明白了,帮助中有说明,绘图板在容器中及在底层无效