Hello,

I am trying to print a picture from a file path which i have stored in a worksheet. Please see attached picture for how i want the script to run.

I want the image to automatically open, print and then close.


I have found the below shell command which opens the file in Microsoft Picture Manager but i cannot figure out an automated print solutions.

*****************************
Sub ReadCell()

Dim PicRange As Range


Dim picture1 As String
Dim picture2 As String


picture1 = Range("B2").Value
picture2 = Range("B3").Value

PGallery = "C:\Program Files\Microsoft Office\Office12\ois.exe"
Shell (PGallery & " " & picture1)
Shell (PGallery & " " & picture2)

End Sub

***************************************


I have also tried to insert each individual picture into its own worksheet and print the worksheet. This works but the image does not come out the correct size. The image needs to fill the A4 page.

Any ideas anybody? this is driving me crackers now!



example.jpg