主题：[求助] 打印设置

老师，有两个问题：

1、打开打印设置后（CurrentTable.PrintSetting）如果没有设置主标题（Title
），那么打印的始终是当前表标题，能否始终打印在主标题栏内输入的标题？

2、去掉勾选“打印行号列”后还是会显示、打印行号列，但是如果调整了行高后打印就没有了，困扰多时。

谢谢！

 

1、测试没有问题，截图说明一下你是如果设置的。

老师，我反复测试过多次，不对表行高或列宽进行调整执行打印和进行调整后执行打印的结果真的不同，困扰好久了，不知什么原因。

打印代码

 

Dim rq1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim rq2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If Tables("考勤登记_table1").Rows.Count <= 0 Then
    MessageBox.Show("表格为空,没有数据!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return   
Else
    CurrentTable.PrintSetting()
   
    'With Tables("考勤登记_table1").PrintInfo
        '.Title = Format(rq1.value,"yyyy年MM月dd日") & "-" & Format(rq2.value,"yyyy年MM月dd日") & "考勤统计"
    'End With
    Tables("考勤登记_table1").Print(True,False)
End If

生成统计表后不调整行高或列宽

 

此主题相关图片如下：qq图片20170618094245.png

 

此主题相关图片如下：qq图片20170618094825.png

 

生成统计表后调整一下行高或列宽

 

此主题相关图片如下：qq图片20170618095014.png

 你可以用代码调整一下行高列宽

 

DefaultRowHeight	整数型，返回或设置默认的行高，单位为像素
DefaultColWidth	整数型，返回或设置默认的列宽，单位为像素

估计也只能如此了。谢谢！