yag
Guest
salve
ho scritto del codice simile a questo
sub example_getplotdevicenames()
' this example gets the current plot device information
' and then displays the list of plot device names,
' media names, localized media names, and plot style
' table entries.
dim layout as acadlayout
set layout = thisdrawing.modelspace.layout
' refresh the current plot information for
' this session.
layout.refreshplotdeviceinfo
' list all the valid device names for the system
dim plotdevices as variant
plotdevices = layout.getplotdevicenames()
dim x as integer
for x = lbound(plotdevices) to ubound(plotdevices)
msgbox plotdevices(x)
next
' list all the media names, and their localized version
dim medianames as variant
medianames = layout.getcanonicalmedianames()
for x = lbound(medianames) to ubound(medianames)
msgbox medianames(x)
msgbox layout.getlocalemedianame(medianames(x))
next
' list all the entries in the plot style table
dim stylenames as variant
stylenames = layout.getplotstyletablenames()
for x = lbound(stylenames) to ubound(stylenames)
msgbox stylenames(x)
next
end sub
per styampare da una mia form con driver di stampa disponibili
il problema e che quando uso adobe pdf mi da questo messaggio
impossibile stampare impostare l'opzione "do not send fonts to distiller"
ma io non la trovo e nn so dove mettere mano
ho scritto del codice simile a questo
sub example_getplotdevicenames()
' this example gets the current plot device information
' and then displays the list of plot device names,
' media names, localized media names, and plot style
' table entries.
dim layout as acadlayout
set layout = thisdrawing.modelspace.layout
' refresh the current plot information for
' this session.
layout.refreshplotdeviceinfo
' list all the valid device names for the system
dim plotdevices as variant
plotdevices = layout.getplotdevicenames()
dim x as integer
for x = lbound(plotdevices) to ubound(plotdevices)
msgbox plotdevices(x)
next
' list all the media names, and their localized version
dim medianames as variant
medianames = layout.getcanonicalmedianames()
for x = lbound(medianames) to ubound(medianames)
msgbox medianames(x)
msgbox layout.getlocalemedianame(medianames(x))
next
' list all the entries in the plot style table
dim stylenames as variant
stylenames = layout.getplotstyletablenames()
for x = lbound(stylenames) to ubound(stylenames)
msgbox stylenames(x)
next
end sub
per styampare da una mia form con driver di stampa disponibili
il problema e che quando uso adobe pdf mi da questo messaggio
impossibile stampare impostare l'opzione "do not send fonts to distiller"
ma io non la trovo e nn so dove mettere mano