Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口打印


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

主题:[求助]窗口打印

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/5/11 20:17:00 [只看该作者]

利用drawcell事件
If e.Col.Name = "车辆信息" Then
    If Vars("d") Then
        If e.Row("车辆信息").Length > 13 Then
            e.Text = e.Row("车辆信息").Substring(e.Row("车辆信息").Length - 13)
        End If
    End If
End If


预览按钮
Vars("d") = True
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
Vars("d") = False


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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/2/28 12:10:00 [只看该作者]

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox2")
txt.BackColor = Color.red

执行这段代码可在TextBox2中显示出来,不能打印出来,应该如何修改代码使其可打印出来呢?

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/28 13:33:00 [只看该作者]

窗口打印不支持控件背景色的

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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/2/28 14:16:00 [只看该作者]

打印时再次执行一段代码,使得TextBox控件打印出的宽窄及其字体的大小重新设置,不同于窗口初始设置的大小,同时,还希望该控件按需可打印或不打印,代码是怎样的啊

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/28 14:27:00 [只看该作者]


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


加好友 发短信
等级:一尾狐 帖子:436 积分:2654 威望:0 精华:0 注册:2018/1/15 13:54:00
  发帖心情 Post By:2024/2/29 10:46:00 [只看该作者]

窗口打印,如何设置能在预留中可见TextBox等,设置成顶层在窗口中也看不见呢?TabControl + PictureBox + TextBox等,有看见的控件,属性相同也看不见呢
[此贴子已经被作者于2024/2/29 10:49:01编辑过]

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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/2/29 11:06:00 [只看该作者]

控件不能放入其它容器里,所有打印的控件都必须在同一层次

 回到顶部
总数 37 上一页 1 2 3 4