Print to DWFWriter
CADForums.net Forum Index CADForums.net
Discussion of AutoCAD and other CAD software.
 
 FAQFAQ   MemberlistMemberlist     RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 
Google
 
Web cadforums.net
Print to DWFWriter

 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA
Author Message
Nate Hunter
Guest
Posted: Thu Mar 24, 2005 9:07 pm    Post subject: Print to DWFWriter Reply with quote
I have a VB app that does a ton of thing which includes plotting to various
plotters & printers. What I would also like it to do is plot a .plt file to
the DWFWriter. Below is the code on how I plot to a plotter.

What do I need to change to plot to the DWFWriter?
How to I specify the path were the DWF file gets saved?

Private Sub mnuPlotDWF_Click()
Dim objFile As File, PlotterName As String, PLTPath as String, PLTName
as String
PlotterName = "\\DC2\KIP8000"
PLTpath = UCase(File1.Path)
PLTName = List3.List(List3.ListIndex)
Set objFile = FSO.GetFile(UCase(PLTpath & "\" & PLTName))
objFile.Copy PlotterName
End Sub

I tried the obvious of swaping PlotterName = "\\DC2\KIP8000" to PlotterName
= "AutoDesk DWF Writer"


Any Ideas??

Back to top
Joe Sutphin
Guest
Posted: Sat Mar 26, 2005 1:37 am    Post subject: Re: Print to DWFWriter Reply with quote
Since the Autodesk DWF Writer shows up like any other printer, you simply
reference it like any other.

Joe
--

"Nate Hunter" <nhunter@planningdesignbuild.com> wrote in message
news:4242e5c6_3@newsprd01...
Quote:
I have a VB app that does a ton of thing which includes plotting to various
plotters & printers. What I would also like it to do is plot a .plt file
to the DWFWriter. Below is the code on how I plot to a plotter.

What do I need to change to plot to the DWFWriter?
How to I specify the path were the DWF file gets saved?

Private Sub mnuPlotDWF_Click()
Dim objFile As File, PlotterName As String, PLTPath as String, PLTName
as String
PlotterName = "\\DC2\KIP8000"
PLTpath = UCase(File1.Path)
PLTName = List3.List(List3.ListIndex)
Set objFile = FSO.GetFile(UCase(PLTpath & "\" & PLTName))
objFile.Copy PlotterName
End Sub

I tried the obvious of swaping PlotterName = "\\DC2\KIP8000" to
PlotterName = "AutoDesk DWF Writer"


Any Ideas??


Back to top
 
Post new topic   Reply to topic    CADForums.net Forum Index -> VBA All times are GMT
Page 1 of 1

 
 You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum




Windows Server DSP VoIP Electronics New Topics
Powered by phpBB