关于升级测试,我的设置对吗?总是提示最新版本的,找不到问题,老师请帮我看下。
直接把新的table文件复制过去覆盖旧的table文件即可
表,选择某一行自动显示蓝底白字,不知何时设置上去的,想去掉这个突出显示行,找不到功能了,看帮助在菜单编辑里的整行,我就是找不到这个按钮
找到这个按钮了,不起作用,在哪里设置?
好了
[此贴子已经被作者于2022/5/27 14:56:19编辑过]
老师好!若用:FileSys.MoveFile("C:\TestDir1\test.txt", "C:\TestDir2\test2.txt") 移动文件,可否将文件名包含关键字的文件,移动到其它目录并重新命名呢?
参考:
dim idx as integer = 1
For Each File As String In FileSys.GetFiles("C:\TestDir1")
if FileSys.GetName(File) like "*某关键字*" then
FileSys.MoveFile(File, "C:\TestDir2\test" & idx & ".txt")
idx =idx +1
endif
Next
小数位设成4位,窗口打印时只显示2位,这个该如何设置,提交给客户的表,单价4位,有点不好看
[此贴子已经被作者于2022/6/10 17:00:28编辑过]
e.Form.Page.PaperKind = 9 '纸张类型改为A4
e.Form.Page.Landscape = True '横向打印
e.Form.Page.LeftMargin = 10 '设置左边距
e.Form.Page.RightMargin = 10 '设置右边距
e.Form.Page.TopMargin = 10 '设置上边距
e.Form.Page.BottomMargin = 10 '设置下边距
Dim grp As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp.Panel1)
For Each c As object In Doc.Body.Children
If Typeof c Is prt.RenderTable Then
Dim t As prt.RenderTable = c
For i As Integer = 0 To t.Rows.count-1
t.Rows(i).Height = "Auto"
Next
End If
Next
一些判断的代码没贴
doc.AutoRotate = False '禁止自动旋转打印内容
'设置页眉
Dim rx As New prt.RenderTable
rx.Cells(0,0).Text = "南通益纬物流有限公司"
rx.Cells(5,0).Text = "运输记录汇总表"
rx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Center
'rx.Style.Borders.Bottom = New prt.LineDef '设置底边框
rx.CellStyle.Spacing.Bottom = 0.5 '底端内容缩进0.5毫米
rx.Style.FontSize = 10 '字体大小为8磅
Doc.PageHeader = rx '作为页眉使用
doc.PageSetting.TopMargin = 15
'设置页脚
Dim tx As New prt.RenderTable
tx.Cells(0,0).Text = "打印日期:" & Date.Today
tx.Cells(0,2).Text = "第[PageNo]页,共[PageCount]页"
tx.Cols(0).Style.TextAlignHorz = prt.AlignHorzEnum.Left
tx.Cols(2).Style.TextAlignHorz = prt.AlignHorzEnum.right
tx.Style.Borders.top = New prt.LineDef '设置底边框
tx.CellStyle.Spacing.top = 0.5 '底端内容缩进0.5毫米
tx.Style.FontSize = 8 '字体大小为8磅
Doc.PageFooter = tx '作为页脚使用
doc.Preview()
[此贴子已经被作者于2022/6/10 17:17:02编辑过]