Question

vba:打开指定文件下jpg图片并打印

vba:打开指定文件下jpg图片并打印

Answer 1

下面是打印文件的代码，可以试试

Sub 打印()
 
    Workbooks.Open ("d:\xls\22.xls")
    Application.DisplayAlerts = False '关闭屏幕提示'
     
    '打印 "22.xls" 工作簿中的"Sheet1"工作表,从第1页到第1页,打印份数为1份'
    Workbooks("22.xls").Sheets("Sheet1").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
    Workbooks("22.xls").Close
    Application.DisplayAlerts = True '打开屏幕提示'
 
 
End Sub

Sub 打开指定文件夹()
Dim Ret
jjj = "c:\pic\qlz110.jpg"
Ret = Shell("C:\Program Files\ACDSee\ACDSee.exe " & jjj, vbNormalFocus)
End Sub