VBA Conversion Help

[a2history]

I need help. I am giving assistance to a Switcher who has been using
Excel on his old Win XP machine. Two of his Excel spreadsheets have
VBA Macros, and, of course, these don't work on Office 2008 (which he
purchased with his Mac). The macros are VERY simplistic, and I suspect
converting them will not require much knowledge, but I simply don't
know the appropriate Applescript commands.

Can anyone help me with this? Here is the script:

Sub PrintMacro()

Sheets("Report").Select
Range("A1:M35").Select
Selection.PrintOut Copies:=1

Sheets("Comparison").Select
Range("A2:M35").Select
Selection.PrintOut Copies:=1

End Sub

Short and sweet. Is the Applescript similarly easy?

Thanks in advance!

 

[John McGhie]

Probably, but VBA is coming back in Office 2011, so I have not bothered to
learn it. You can't assign AppleScript to a toolbar or shortcut key, so
it's not very useful.

Teach your user how to "Set a Print Area" and he will find he can get by
using simply "Command + P" without needing the macro.

Cheers

I need help. I am giving assistance to a Switcher who has been using
Excel on his old Win XP machine. Two of his Excel spreadsheets have
VBA Macros, and, of course, these don't work on Office 2008 (which he
purchased with his Mac). The macros are VERY simplistic, and I suspect
converting them will not require much knowledge, but I simply don't
know the appropriate Applescript commands.

Can anyone help me with this? Here is the script:

Sub PrintMacro()

Sheets("Report").Select
Range("A1:M35").Select
Selection.PrintOut Copies:=1

Sheets("Comparison").Select
Range("A2:M35").Select
Selection.PrintOut Copies:=1

End Sub

Short and sweet. Is the Applescript similarly easy?

Thanks in advance!

--

The email below is my business email -- Please do not email me about forum
matters unless I ask you to; or unless you intend to pay!

John McGhie, Microsoft MVP (Word, Mac Word), Consultant Technical Writer,
McGhie Information Engineering Pty Ltd
Sydney, Australia. | Ph: +61 (0)4 1209 1410 | mailto:[email protected]