1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
rainstormmaster 2003-12-10
- 打赏
- 举报
不如把你的代码贴出来
一个用api打印图片文件的例子：
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "print", "d:\mc\123.bmp", vbNullString, vbNullString, 3
End Sub
一个用api打印图片文件的例子：
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
ShellExecute Me.hwnd, "print", "d:\mc\123.bmp", vbNullString, vbNullString, 3
End Sub
rainstormmaster 2003-12-10
- 打赏
- 举报
//这个pringimage（）是否还要写返回值
Sub PrintImage([StartPage], [EndPage], [OutputFormat], [Annotations], [Printer], [Driver], [PortNumber])
是sub，哪里来的返回值
Sub PrintImage([StartPage], [EndPage], [OutputFormat], [Annotations], [Printer], [Driver], [PortNumber])
是sub，哪里来的返回值
shdcsdn 2003-12-10
- 打赏
- 举报
这个pringimage（）是否还要写返回值
shdcsdn 2003-12-10
- 打赏
- 举报
我也是这样写的，错误提示为：编译错误，类型不匹配
我还在imedit1.printimage()
前加了ImgAdmin1.ShowPrintDialog Form1.hwnd,
还是不好用
我还在imedit1.printimage()
前加了ImgAdmin1.ShowPrintDialog Form1.hwnd,
还是不好用
SoHo_Andy 2003-12-10
- 打赏
- 举报
XP当中就没有这些控件了，如果考虑用户使用WInxp的话，还是不用这几个控件啦
hxy2003 2003-12-10
- 打赏
- 举报
ImgEdit1.PrintImage PrintStartPage, _
PrintEndPage, _
ImgAdmin1.PrintOutputFormat, _
ImgAdmin1.PrintAnnotations
PrintEndPage, _
ImgAdmin1.PrintOutputFormat, _
ImgAdmin1.PrintAnnotations
