- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口设计页眉 页脚 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158427)
-- 发布时间：2020/11/19 20:54:00
-- 窗口设计页眉 页脚
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:打印.table |
老师，如果在窗口的上下部分设计一个页眉和页脚能实现吗，感谢 感谢
e.Form.Page.Width =297 \'纸张宽度为100毫米
e.Form.Page.Height =210\'纸张高度为120毫米
e.Form.Page.LeftMargin = 0 \'设置左边距
e.Form.Page.RightMargin = 0 \'设置右边距
e.Form.Page.TopMargin = 0 \'设置上边距
e.Form.Page.BottomMargin = 0 \'设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.PageSetting.Landscape = True \'横向打印
doc.Preview()
感谢 感谢
此主题相关图片如下：截图_20205119085147.jpg
此主题相关图片如下：截图_20205119085147.jpg-- 发布时间：2020/11/19 21:06:00
--
窗口控件实现不了。只能参考：http://www.foxtable.com/webhelp/topics/1197.htm
-- 发布时间：2020/11/20 13:59:00
--
谢谢老师，知道怎么调了 感谢 ，只是可以在眉页上面插入PictureBox2和Label13吗
e.Form.Page.Width =297 \'纸张宽度为100毫米
e.Form.Page.Height =210\'纸张高度为120毫米
e.Form.Page.LeftMargin = 0 \'设置左边距
e.Form.Page.RightMargin = 0 \'设置右边距
e.Form.Page.TopMargin = 0 \'设置上边距
e.Form.Page.BottomMargin = 0 \'设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.PageSetting.Landscape = True \'横向打印
Doc.PageSetting.BottomMargin = 5
\'设置页眉
Dim rt As New prt.RenderText \'设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" \'设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Right \'靠右对齐
rt.Style.Borders.Top = New prt.LineDef(0.3, Color.Green) \'设置底边框
rt.Style.Padding.Top = 0.5 \'底端内容缩进0.5毫米
rt.Style.FontSize = 8 \'字体大小为8磅
Doc.PageFooter = rt \'作为页眉使用
doc.Preview() \'预览
[此贴子已经被作者于2020/11/20 13:59:28编辑过]
-- 发布时间：2020/11/20 14:07:00
--
\'设置页眉
Dim rm As New prt.RenderImage \'定义一个图片对象rm.Image = GetImage("EP1.BMP") \'设置图片
Doc.PageFooter = rm \'作为页眉使用
doc.Preview() \'预览
-- 发布时间：2020/11/20 14:59:00
--
老师可以这个样子吗？图片是印章，文字是编号，感谢 感谢
此主题相关图片如下：截图_20205920025903.jpg
Dim ra As New prt.RenderText \'设置文本对象的内容
\'ra.Text = "第[PageNo]页,共[PageCount]页" \'设置文本内容
ra.Image = e.form.controls("Label02").text
ra.Image = GetImage("EP1.BMP") \'设置图片
ra.Image = e.Form.Controls("PictureBox2")
ra.Style.TextAlignHorz = prt.AlignHorzEnum.Right \'靠右对齐
\'ra.Style.Borders.Top = New prt.LineDef(1, Color.Green) \'设置底边框
ra.Style.Padding.Top = 0.5 \'底端内容缩进0.5毫米
ra.Style.FontSize = 12 \'字体大小为8磅
Doc.Pageheader = ra \'作为页眉使用
-- 发布时间：2020/11/20 15:04:00
--
图文混排可以参考：
-- 发布时间：2020/11/20 15:21:00
--
不能直接添加控件吗？老师？或者应用控件的内容吗？
-- 发布时间：2020/11/20 15:28:00
--
如果只有一页数据，直接在窗口设计排版好即可。
如果可能打印有多页，每页都有页眉，就不能了，只能使用代码添加
[此贴子已经被作者于2020/11/20 15:29:06编辑过]
-- 发布时间：2020/11/20 16:29:00
--
好的，谢谢老师，我先自己试试，感谢了
-- 发布时间：2020/11/20 17:44:00
--
老师 那个图片文件应该放在那里呀，文字可以是复制控件的文字吗？
感谢 感谢 实在是搞不定了