Printing JPG 3

[scrote]

I hope someone can help.
I'm only a very low level VBAer so any solution (if possible) to this needs to be simple so I can understnad.
I need to be able to print single .jpg pictures by clicking on a linked button in Excel. I have over 400 .jpg files that I need to print when required.
I would imagine it would be something like:

Sub cmd1_Click()

File = "C:\text.jpg"

Print.File.DefaultPrinter

end sub[/color blue]

Thanks

Scrote

 

[paulmatt]

You don't need Excel to do this. There are various batch printing utilities, one is called infranview. It can be run from the command line too.

Paul Rigby

http://www.awgarstone.com

VBA, C#, Delphi

 

[SkipVought]

Are they all in one folder?

Select them in Windows Explorer and PRINT. Then go have a cup of coffee.

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[paulmatt]

Yep - even better!

Paul Rigby

http://www.awgarstone.com

VBA, C#, Delphi

 

[scrote]

SkipVoight, paulmatt,

Thanks for the information. Unfortunatly I need to run this process from within Excel - I trying to right a simple process that collects the description from the clipboard, compares with a list in excel then prints the corresponding picture (this is among many other tasks I'm attempting to automate using a single excel environment).

Scrote

 

[paulmatt]

Well you can just call infranview command line from vba using shellexecute or similar.

Paul Rigby

http://www.awgarstone.com

VBA, C#, Delphi

 

[scrote]

paulmatt,

I'll give it a try and let you know how it works. I've never used shellexecute before (or similar) but htere is always a first time.

Thanks

Scrote

 

[paulmatt]

I've used "shell" before to call the command line:

Shell "myapp /aswitch"

But you can also use the winapi shellexecute for more control.

Look in the infranview documentation for details of how to call it.



Paul Rigby

http://www.awgarstone.com

VBA, C#, Delphi

 

[mintjulep]

As a start, you can get the path of the hyperlinked file via:

activeworkbook.Sheets (1).range("A1").hyperlinks (1).address

 

[mintjulep]

Add this in a module to be able to get the short file name:

   Declare 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

Then this will print the file that the hyperlink assigned to cell A1 points to on the default printer:

Shell("cmd /c mspaint /p " & getshortname(application.Sheets (1).range("A1").hyperlinks (1).address))

 

[scrote]

mintjulep,

Excellent - exactly what I was looking for to get me started. Works like a dream.

Scrote

 

[paulmatt]

Good tip with the mspaint cmd line... will make a note of that!

Paul Rigby

http://www.awgarstone.com

VBA, C#, Delphi

 

[fumei]

mintjulep, well written - consise and clear. Worth a star.

Gerry

 

[SkipVought]

Likewise! ==> [purple]*[/purple]

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]