台灣最大程式設計社群網站
線上人數
1727
 
會員總數:244787
討論主題:188836
歡迎您免費加入會員
討論區列表 >> 其他語言 >> EXCEL VBA 呼叫小畫家列印圖片
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
EXCEL VBA 呼叫小畫家列印圖片
價值 : 110 QP  點閱數:472 回應數:1

樓主

cloud
門外漢
0 1
6 0
發送站內信

捐贈 VP 給 cloud
各位前輩好:
在下因業務需求,要製作一個EXCEL 按鈕巨集, 來列印指定路徑圖片, 目前程式如下

Declare PtrSafe Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Public Function GetShortName(ByVal sLongFileName As String) As String
Dim lRetVal As Long, sShortPathName As String, iLen As Integer
'Set up buffer area for API function call return
sShortPathName = Space(255)
iLen = Len(sShortPathName)

'Call the function
lRetVal = GetShortPathName(sLongFileName, sShortPathName, iLen)
'Strip away unwanted characters.
GetShortName = Left(sShortPathName, lRetVal)
End Function

Sub 按鈕1_Click()

Dim Ret
Shell ("cmd /c mspaint /p " & GetShortName("C:\001\002.tif"))

End Sub

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

程式可以成功列印圖片,以預設印表機與預設紙張大小輸出, 但無法指定印表機與列印紙張大小 , 請問我要怎樣修改這段程式碼,讓我可以指定印表機與紙張大小呢?





搜尋相關Tags的文章: [ kernel32 ] , [ EXCEL VBA ] , [ 小畫家列印 ] ,
本篇文章發表於2019-02-11 15:00
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

roar
檢舉此回應
請參考:
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_other-mso_archive/vba-code-to-adjust-print-setting-properties/1b8628bc-2121-4222-a44d-4b213d9f0a45?messageId=91cf6a04-81ee-4834-add2-57fbd7189fd6


本篇文章回覆於2019-03-09 07:56
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.