Foxtable(狐表)用户栏目专家坐堂 → 默认打印路径和文件名


  共有155人关注过本帖树形打印复制链接

主题:默认打印路径和文件名

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2655 积分:17581 威望:0 精华:0 注册:2013/4/9 10:41:00
默认打印路径和文件名  发帖心情 Post By:2020/11/22 12:30:00 [只看该作者]

老师 可以是打印的时候保存的窗口自己设定默认吗?

图片点击可在新窗口打开查看此主题相关图片如下:截图_20203322123331.jpg
图片点击可在新窗口打开查看



e.Form.Page.Width =297 '纸张宽度为100毫米
e.Form.Page.Height =210'纸张高度为120毫米
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)

Dim rar As new prt.RenderArea
rar.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim rm As prt.RenderImage
rm = New prt.RenderImage '创建一个图片
rm.Width = 15 '宽度等于页面宽度
rm.Height = 15 '高度由图片大小自动决定
rm.Image = GetImage("匹士克logo.png")
rm.x = 121
rm.y = 0

Dim ra As New prt.RenderText '设置文本对象的内容
ra.Text = e.Form.Controls("Label13").text
ra.Style.TextAlignHorz = prt.AlignHorzEnum.right 
ra.Style.TextAlignVert =prt.AlignVertEnum.Bottom
ra.Style.Borders.Bottom = New prt.LineDef(1, Color.Black) '设置底边框
ra.Style.Padding.Bottom = 2 '底端内容缩进0.5毫米
ra.Style.FontSize = 12 '字体大小为8磅
ra.Height = 10


Dim rt As New prt.RenderText '设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '靠右对齐
rt.Style.Borders.Top = New prt.LineDef(1, Color.Black) '设置底边框
rt.Style.Padding.Top = 0.5 '底端内容缩进0.5毫米
rt.Style.FontSize = 12 '字体大小为8磅
rt.Height = 15

rar.Children.Add(rm) '加入图片到RenderArea中
rar.Children.Add(ra) '加入文本到RenderArea中

Doc.Pageheader  = rar '作为页眉使用
Doc.PageFooter  = rt '作为页眉使用

doc.PageSetting.Landscape = True '横向打印
'设置页眉
doc.Preview() '预览
[此贴子已经被作者于2020/11/22 12:33:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:61047 积分:309436 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/22 21:00:00 [只看该作者]

无法设定。直接保存pdf可以这样:http://www.foxtable.com/webhelp/topics/2450.htm

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= 
"PDF文件|*.pdf" '设置筛选器
dlg.InitialDirectory = “自己指定的保存目录”
dlg.FileName = tables("表A").current("xx列") & ables("表A").current("xx列2") & “.pdf”
If
 dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
  上面的打印代码
……Doc.Pageheader  = rar '作为页眉使用
Doc.PageFooter  = rt '作为页眉使用

doc.PageSetting.Landscape = True '横向打印
doc.SavePDF(dlg.FileName
End If

 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2655 积分:17581 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/11/22 21:14:00 [只看该作者]

谢谢老师,
老师 现在在你的帮助下可以了,只是可以这个样子吗?老师,就是先预览pdf,然后在弹出确定按钮是否需要保存,感谢 感谢 辛苦你了,感谢 

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "PDF文件|*.pdf" '设置筛选器
'dlg.InitialDirectory = "自己指定的保存目录"
dlg.InitialDirectory = Tables("客户报价表").Current("报价信息_文件路径") 

dlg.FileName = Tables("客户报价表").current("客户信息_客户名称") & Tables("客户报价表").current("客户信息_负责采购") & Tables("客户报价表").current("客户信息_客户编号") & ".pdf"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮


e.Form.Page.Width =297 '纸张宽度为100毫米
e.Form.Page.Height =210'纸张高度为120毫米
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)

Dim rar As new prt.RenderArea
rar.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim rm As prt.RenderImage
rm = New prt.RenderImage '创建一个图片
rm.Width = 15 '宽度等于页面宽度
rm.Height = 15 '高度由图片大小自动决定
rm.Image = GetImage("匹士克logo.png")
rm.x = 121
rm.y = 0

Dim ra As New prt.RenderText '设置文本对象的内容
ra.Text = e.Form.Controls("Label13").text
ra.Style.TextAlignHorz = prt.AlignHorzEnum.right 
ra.Style.TextAlignVert =prt.AlignVertEnum.Bottom
ra.Style.Borders.Bottom = New prt.LineDef(1, Color.Black) '设置底边框
ra.Style.Padding.Bottom = 2 '底端内容缩进0.5毫米
ra.Style.FontSize = 12 '字体大小为8磅
ra.Height = 10


Dim rt As New prt.RenderText '设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '靠右对齐
rt.Style.Borders.Top = New prt.LineDef(1, Color.Black) '设置底边框
rt.Style.Padding.Top = 0.5 '底端内容缩进0.5毫米
rt.Style.FontSize = 12 '字体大小为8磅
rt.Height = 15

rar.Children.Add(rm) '加入图片到RenderArea中
rar.Children.Add(ra) '加入文本到RenderArea中

Doc.Pageheader  = rar '作为页眉使用
Doc.PageFooter  = rt '作为页眉使用

doc.PageSetting.Landscape = True '横向打印
'设置页眉
doc.Preview() '预览
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:61047 积分:309436 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/22 21:45:00 [只看该作者]

不能。预览和保存需要分开2个按钮,一个按钮只是预览,一个按钮只是保存

 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2655 积分:17581 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/11/22 22:09:00 [只看该作者]

谢谢老师,能帮忙看看为什么我点击上面的代码,保存的内容和预览的内容不一样呢,保存为pdf的内容是空白,感谢 感谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:61047 积分:309436 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/22 22:16:00 [只看该作者]

预览和保存需要分开2个按钮,不能在预览里保存pdf

 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2655 积分:17581 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/11/22 22:22:00 [只看该作者]

谢谢老师,我是分开了的,现在我就是保存,只是保存后没有生成文件,能再帮忙看看吗? 感谢 感谢 
我想只保存,但是现在弹出了窗口,点击保存后并没有文件,感谢 感谢

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= "PDF文件|*.pdf" '设置筛选器
'dlg.InitialDirectory = "自己指定的保存目录"
dlg.InitialDirectory = Tables("客户报价表").Current("报价信息_文件路径") 

dlg.FileName = Tables("客户报价表").current("客户信息_客户名称") & Tables("客户报价表").current("客户信息_负责采购") & Tables("客户报价表").current("客户信息_报价编号") & ".pdf"
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮


e.Form.Page.Width =297 '纸张宽度为100毫米
e.Form.Page.Height =210'纸张高度为120毫米
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 0 '设置右边距
e.Form.Page.TopMargin = 20 '设置上边距
e.Form.Page.BottomMargin = 20 '设置下边距
Dim grp As WinForm.GroupBox = e.Form.Controls("GroupBox1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)

Dim rar As new prt.RenderArea
rar.Stacking = prt.StackingRulesEnum.InlineLeftToRight
Dim rm As prt.RenderImage
rm = New prt.RenderImage '创建一个图片
rm.Width = 15 '宽度等于页面宽度
rm.Height = 15 '高度由图片大小自动决定
rm.Image = GetImage("匹士克logo.png")
rm.x = 121
rm.y = 0

Dim ra As New prt.RenderText '设置文本对象的内容
ra.Text = e.Form.Controls("Label13").text
ra.Style.TextAlignHorz = prt.AlignHorzEnum.right 
ra.Style.TextAlignVert =prt.AlignVertEnum.Bottom
ra.Style.Borders.Bottom = New prt.LineDef(1, Color.Black) '设置底边框
ra.Style.Padding.Bottom = 2 '底端内容缩进0.5毫米
ra.Style.FontSize = 12 '字体大小为8磅
ra.Height = 10


Dim rt As New prt.RenderText '设置文本对象的内容
rt.Text = "第[PageNo]页,共[PageCount]页" '设置文本内容
rt.Style.TextAlignHorz = prt.AlignHorzEnum.Center '靠右对齐
rt.Style.Borders.Top = New prt.LineDef(1, Color.Black) '设置底边框
rt.Style.Padding.Top = 0.5 '底端内容缩进0.5毫米
rt.Style.FontSize = 12 '字体大小为8磅
rt.Height = 15

rar.Children.Add(rm) '加入图片到RenderArea中
rar.Children.Add(ra) '加入文本到RenderArea中

Doc.Pageheader  = rar '作为页眉使用
Doc.PageFooter  = rt '作为页眉使用

doc.PageSetting.Landscape = True '横向打印
''设置页眉
'doc.Preview() '预览
End If

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:61047 积分:309436 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/22 23:02:00 [只看该作者]

这个是预览,不是保存,请认真看2楼

 回到顶部
帅哥哟,离线,有人找我吗?
yangwenghd
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2655 积分:17581 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2020/11/23 9:22:00 [只看该作者]

老师 我现在是复制二楼的代码,然后会弹出一个保存框,会输入默认的路径和文件名,然后保存就没有文件了,这个预览只是预览这个窗口了,怎么把pdf的内容保存到这个pdf文件里面呀,感谢 感谢 ,实在是搞不定了,感谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:61047 积分:309436 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/23 9:32:00 [只看该作者]

直接保存pdf可以这样:http://www.foxtable.com/webhelp/topics/2450.htm

Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog 
dlg.Filter= 
"PDF文件|*.pdf" '设置筛选器
dlg.InitialDirectory = “自己指定的保存目录”
dlg.FileName = tables("表A").current("xx列") & ables("表A").current("xx列2") & “.pdf”
If
 dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
  上面的打印代码
……Doc.Pageheader  = rar '作为页眉使用
Doc.PageFooter  = rt '作为页眉使用

doc.PageSetting.Landscape = True '横向打印
doc.SavePDF(dlg.FileName
End If

 回到顶部
总数 14 1 2 下一页