View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
alram alram is offline
external usenet poster
 
Posts: 1
Default how to print autocad dwg's from excel vba

If I have a dwg # in a sheet cell, how can I print that dwg. from excel vba.
This is as far as I got: (I need help with the last 3 lines)

Sub print_dwg_from_excel()
A = ActiveWindow.ActiveCell.Value
B = Dir("c:\AUTOCAD\" & A")
C = "c:\AUTOCAD\" & B
Set fs = CreateObject("SCRIPTING.FILESYSTEMOBJECT")
Set f = fs.GetFile(C)
s = f.PrintOut
End Sub

thanks in advance
Al