Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口设计piao据预览


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

主题：[求助]窗口设计piao据预览
帅哥哟，离线，有人找我吗？
ntqhj
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2020/10/2 11:51:00 [显示全部帖子]

打印按钮
vars("打印")= true
……原来的打印代码
doc.Preview()
vars("打印") = false

这段代码在页面集合里执行，该如何修改代码？
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2021/3/13 1:43:00 [显示全部帖子]

老师好！窗口打印印章，根据记录的多少，自动打印在TextBox1位置处，该如何修改代码？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口印章打印需求.rar
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2021/3/13 14:05:00 [显示全部帖子]

我有3个章呢，做了3个打印预览按钮，选择对应章的，插入图片框，我该如何根据不同需求选择不同的章呢
[此贴子已经被作者于2021/3/13 14:05:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2021/3/13 16:43:00 [显示全部帖子]

以下代码放在打印预览按钮里，可以满足要求。执行完成需要清空该图片，代码是怎样的？
Dim pbx AS WinForm.PictureBox
pbx = Forms("窗口1").Controls("PictureBox1")
pbx.Image = GetImage("章.png")
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2021/3/15 10:39:00 [显示全部帖子]

老师好！功能可以实现，就是当控件PictureBox的位置与表重叠时，不能随TextBox移动而移动，不重叠没问题。
可否实现，就算PictureBox与表重叠也可随TextBox的移动而移动
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:窗口印章打印需求.rar
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2021/3/15 11:28:00 [显示全部帖子]

谢谢！

[此贴子已经被作者于2021/3/15 11:32:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2021/5/1 13:06:00 [显示全部帖子]

老师好！还是关于印章，窗口打印，如何判断页数插入印章？如果合同是1页就插入印章1，如果合同是2页就插入印章1+印章2+印章3，如果合同是3页就插入印章1+印章2+印章3+印章4，类推。印章2+印章3+印章4+......其实就是根据页数加盖骑缝章，该如何写代码？

 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2021/5/19 15:19:00 [显示全部帖子]

老师好！窗口打印插入了PictureBox，图片大小是A4，PictureBox属性的宽、高大小的值是设为多少？

 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/6/6 12:58:00 [显示全部帖子]

Excel.xlsm文件，模块1，其按钮代码如下，想集成到foxtable窗口按钮上，通过不调用Excel.xlsm文件实现，应如何写代码

Sub Macro1()
    Dim MyPath$, MyName$
    Application.ScreenUpdating = False
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xlsx")
    Do While MyName <> ""
        With Workbooks.Open(MyPath & MyName)
            .Sheets(1).Select
            Call xiugai
            .Close True
        End With
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub

Sub xiugai()
ActiveSheet.Name = "123"
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
ntqhj
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：436 积分：2654 威望：0 精华：0 注册：2018/1/15 13:54:00 		  发帖心情 Post By：2022/6/6 14:21:00 [显示全部帖子]

foxtabl窗口按钮调用Excel宏，foxtable可以实现吗？

 回到顶部
总数 33 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 7 次数据查询