when you debug, how far does it get?
Does the p3c anme get constructed correctly?
Human.Man.Name=Jose <>
|>Does anyone know how to use the PlottingServices.PlotConfig.SaveToPc3() Method?
|>Been trying all day and have not had any result.
|>
|>Try
|> For Each P As Autodesk.AutoCAD.PlottingServices.PlotConfigInfo In Autodesk.AutoCAD.PlottingServices.PlotConfigManager.Devices
|> Try
|> Dim oEditor As Autodesk.AutoCAD.EditorInput.Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
|> If P.DeviceName.EndsWith(".pc3") = False Then
|> If Not P.DeviceName = "None" Then
|> 'oEditor.WriteMessage("Now Updating Pagesetups for all layouts referencing " + P.DeviceName + vbNewLine)
|> Autodesk.AutoCAD.PlottingServices.PlotConfigManager.SetCurrentConfig(P.DeviceName.ToString)
|> Dim oPlotConfig As Autodesk.AutoCAD.PlottingServices.PlotConfig = Autodesk.AutoCAD.PlottingServices.PlotConfigManager.CurrentConfig
|> 'Application.ShowAlertDialog(Autodesk.AutoCAD.PlottingServices.PlotConfigManager.Devices)
|> 'Application.ShowAlertDialog(oPlotConfig.CanonicalMediaNames(0))
|> Dim Fullnamepc3 As String() = oPlotConfig.DeviceName.Split("\")
|> Dim pc3name As String
|> If Fullnamepc3.Length > 0 Then
|> pc3name = Fullnamepc3(Fullnamepc3.GetUpperBound(0)) + ".pc3"
|> oPlotConfig.SaveToPC3(pc3name)
|> Application.ShowAlertDialog(pc3name)
|> End If
|> oPlotConfig = Nothing
|> oEditor = Nothing
|> End If
|> End If
|> Catch ex As Exception
|> If Not P.DeviceName = "None" Then
|> Application.ShowAlertDialog("Please contact IT Department and request " + P.DeviceName + " printer driver installation.")
|> End If
|> End Try
|> Next
|> Catch ex As Exception
|> Application.ShowAlertDialog(ex.Data)
|> Finally
|> End Try
James Maeding
Civil Engineer and Programmer
jmaeding - athunsaker - com
