Foxtable(狐表)用户栏目专家坐堂 → [求助] 打印设置的代码


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

主题:[求助] 打印设置的代码

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
[求助] 打印设置的代码  发帖心情 Post By:2015/8/6 15:52:00 [只看该作者]

“打印输出”功能区里的“打印设置”,里面的设置对应的代码,是什么呢?Bin版主列出了一些,好像不全啦。

实例
Dim t As Table = CurrentTable
With T.PrintInfo
    .Title = "内一科血糖监测表"
    .SubTitle = "朴奉柱"
    .PageHeaderLine = True
    .PageFooterLine = True
    .OnlyPrintTitleOnFirstPage = False
End With
T.Print(True,False)

有以下属性可以提供设置

PrinterName
PaperSource
PaperRawKind
PaperKind
PaperWidth
PaperHeight
LeftMargin
TopMargin
RightMargin
BottomMargin
LandScape
Title
SubTitle
PageHeader
PageFooter
PageHeaderLine
PageFooterLine
SpaceAfterPagerHeader
SpaceBeforePagerFooter
SpaceAfterTitle
SpaceAfterSubtitle
PageHeaderFont
PageFooterFont
TitleFont
SubtitleFont
PageColumns
WaterMark
RepeatFixedRows
RepeatFixedCols
PrintFixedCols
ExcuteDrawCell
FitIntoPage
WrapMemo
ExtendMemoRow
OnlyPrintTitleOnFirstPage
AdjustFontSize
OnlySelectedRows
Renumber
EnableStyle
PrintTitle
PrintHeader
PrintFooter
ExtendLastCol
DirectFitIntoPage
DirectFitIntoOnePage
DirectExtendLastCol
DirectPageHeader
DirectPageFooter
DirectHighLight
DirectPageHeaderFont
DirectPrintHeader
DirectPrintFooter

比如,“副标题”的左、中、右,页眉页脚的左、中、右,如何设置。

麻烦哪位高手列出详细的设置代码,最好将代码与设置对应列出。

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/8/6 15:59:00 [只看该作者]

告诉你一个方法,就是你设置好值以后,msgbox弹出看一下就行了

 

 

Dim t As Table = CurrentTable
msgbox(t.PrintInfo.SubTitle)


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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2015/8/6 16:42:00 [只看该作者]

以下是引用大红袍在2015/8/6 15:59:00的发言:

告诉你一个方法,就是你设置好值以后,msgbox弹出看一下就行了

 

 

Dim t As Table = CurrentTable
msgbox(t.PrintInfo.SubTitle)



果然如此,左中右是这样来的:左副标题|中副标题|右副标题,是用小竖线分隔而来的。


谢谢。


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


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
  发帖心情 Post By:2019/12/27 11:38:00 [只看该作者]

能把以上的鹰语 备注一下中文吗? 我看的糊涂

[此贴子已经被作者于2019/12/27 11:37:48编辑过]

 回到顶部