添加CommonDialog
Private Sub cmdPrintMap_Click()
'打印地图 Dim NumCopies As Long, i As Long
On Error GoTo ErrHandler
CommonDialog1.CancelError = True '将 Cancel 设置成 True。
CommonDialog1.ShowPrinter '显示“打印”对话框。 '从对话框中获取用户选定数值。
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
Printer.PaintPicture frmMap.picShowMap.Image, 0, 0
Next iErrHandler:
'用户按下了“取消”按钮。
End Sub
Private Sub cmdPrintMap_Click()
'打印地图 Dim NumCopies As Long, i As Long
On Error GoTo ErrHandler
CommonDialog1.CancelError = True '将 Cancel 设置成 True。
CommonDialog1.ShowPrinter '显示“打印”对话框。 '从对话框中获取用户选定数值。
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
Printer.PaintPicture frmMap.picShowMap.Image, 0, 0
Next iErrHandler:
'用户按下了“取消”按钮。
End Sub
解决方案 »
- (1)求vb数据库打开,读,写语句及用法;(2)input语句读text文件为何多读出空格?
- 请帮忙看看哪里的问题,谢谢!!!
- feiyun0112能进来看下不?
- 前仆后继,一往直前,再接再厉,梅开九度,继续提问:SQL语句问题. 这次的问题好像有点复杂(只是复杂,还是不难),大家还来帮我哦!!!帮顶也有分.
- 关于 inputbox 函数?
- MSflexGrid列中数值保留两位小数
- ★★★★★关于ini的菜问题,拿分了!(在线等可立即结帖)★★★★★★
- VB能用命令行方式执行么?
- 文件已生成 ,打印机为什么不打印?代码如下:
- 急!怎样让Excel2000中的数据输出到程序的变量中?
- 做个成绩管理系统 大家给点意见!
- OCX 与 WEB 页面通信问题 》》》加急 100分
From MSDN:
Private Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit SubErrHandler:
' 用户按了“取消”按钮
Exit Sub
End SubPrivate Sub Command1_Click()
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit SubErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
Private Sub Command1_Click()
Dim BeginPage, EndPage, NumCopies, i
' 设置“取消”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 显示“打印”对话框
CommonDialog1.ShowPrinter
' 从该对话框取得选定的值
BeginPage = CommonDialog1.FromPage
EndPage = CommonDialog1.ToPage
NumCopies = CommonDialog1.Copies
For i = 1 To NumCopies
' 此处放置将数据发送到打印机的代码
Next i
Exit Sub
ErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub
' 设置“CancelError”为 True
CommonDialog1.CancelError = True
On Error GoTo ErrHandler
' 设置标志
CommonDialog1.Flags = cdlOFNHideReadOnly
' 设置过滤器
CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
' 指定缺省的过滤器
CommonDialog1.FilterIndex = 2
' 显示“打开”对话框
CommonDialog1.ShowOpen
' 显示选定文件的名字
MsgBox CommonDialog1.filename
Exit SubErrHandler:
' 用户按了“取消”按钮
Exit Sub
End Sub这段程序,在那里指定要存的对象名呢?