I started to write a program to set up printer properties based on the sheet size. Because we use different sizes of long plot, the idea was to take the sheet size and then transpose that over to the printer properties, then I can output a print or a tif etc.

My problem is... I keep getting an error code 70 (permission denied) when I try to send keys.

Here is my code so far...

Dim swApp As Object
Dim swModel As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

     Dim L
     Dim W

     Set swApp = Application.SldWorks
     Set swModel = swApp.ActiveDoc

     L = 46.5
     W = 11

     'SET PRINT PROPERTIES
     SendKeys "%{f}{p}{p}{m}", False
     SendKeys "{TAB 11}{UP}", False
     SendKeys "{TAB 13}" & L & "{TAB}" & W & "{TAB 3}{ENTER}{TAB 5}{ENTER}", False
     SendKeys "{TAB 4}{ENTER}{TAB 6}{ENTER}{TAB 14}{ENTER}", False

End Sub

Ive only used sendkeys once or twice before but I think it was in VB. Another post showed the sendkeys working without the { } so I tried that. Still get the code 70.

Any ideas?