Hsieh

回復 1# hbjang

可利用工作表列印

1. Private Sub CommandButton1_Click()
   
2. Application.DisplayAlerts = False
   
3. With Sheets.Add
   
4. .Pictures.Insert "C:\Users\User\Pictures\102_0124.jpg" '圖片檔目錄
   
5. .PrintOut
   
6. .Delete
   
7. End With
   
8. Application.DisplayAlerts = True
   
9. End Sub

複製代碼