Drucken in pdf eines ausgewählten Bereichs

[Lubracali]

hallo, alle.

ich schaffe eine vba benutzerform, die mir erlaubt, einige elemente in 2d zu zeichnen.

ich habe eine schaltfläche erstellt, die es mir erlaubt, in pdf mit dem drucker "adobe pdf" von acrobat pro erstellt zu exportieren.

der code ist das

Privat sub cmdpdf_click()
dim stampa als acadplot
dim nbackgroundplod as long


nbackgroundplot = thisdraw.getvariable("backgroundplot")

Führung sie diese zeichnung an. setvariable("backgroundplot", 0)

set stampa = thisdrawing. grundstück
stampa.plottodevice ("adobe pdf")

Führung sie diese zeichnung an. setvariable("backgroundplot", nbackgroundplot)


Endteil

der code funktioniert, ich kann drucken, aber es gibt ein problem.

das problem ist, dass ich auf diese weise drucken kann, aber drucken sie, was autocad entscheidet, in dem format, das ihn entscheidet (ich denke, es ist der standarddrucker).

ich müsste das ausgabeformat (d.h. das format des pdf) und welchen bereich zum drucken (bei der auswahl des drucks ->-fensters und der auswahl der rechteckigen fläche) bestimmen können.

wenn jemand wusste, wie man mir ein eigentum oder einen anderen befehl als das von mir anzeigt, was mir erlaubt, es zu tun, würde mir eine große freude machen

 

[marzio30]

Hallo, alle.

Ich schaffe eine vba Benutzerform, die mir erlaubt, einige Elemente in 2d zu zeichnen.

Ich habe eine Schaltfläche erstellt, die es mir erlaubt, in pdf mit dem Drucker "adobe pdf" von acrobat pro erstellt zu exportieren.

Der Code ist das

Privat sub cmdpdf_click()
dim stampa als acadplot
dim nbackgroundplod as long


nbackgroundplot = thisdraw.getvariable("backgroundplot")

rufen Sie diese Zeichnung an. setvariable("backgroundplot", 0)

set stampa = thisdrawing. Grundstück
stampa.plottodevice ("adobe pdf")

rufen Sie diese Zeichnung an. setvariable("backgroundplot", nbackgroundplot)


Endteil

Der Code funktioniert, ich kann drucken, aber es gibt ein Problem.

das Problem ist, dass ich auf diese Weise drucken kann, aber drucken Sie, was autocad entscheidet, in dem Format, das ihn entscheidet (Ich denke, es ist der Standarddrucker).

Ich müsste das Ausgabeformat (d.h. das Format des pdf) und welchen Bereich zum Drucken (bei der Auswahl des Drucks ->-Fensters und der Auswahl der rechteckigen Fläche) bestimmen können.

Wenn jemand wusste, wie man mir ein Eigentum oder einen anderen Befehl als das von mir anzeigt, was mir erlaubt, es zu tun, würde mir eine große Freude machen

Guten Morgen, ich würde mich auch für die Lösung interessieren, wie ich in der gleichen Situation bin.
im Moment der Code, den ich aus Excel mit der vba erstellt und unten berichtet.

Sag hallo.

auf Fehlerwiederaufnahme

acadapp = Interaktion. getobject(, "autocad.application")
'set acadapp = Interaktion. getobject(, "autocad.application.22")
Die obigen Ausführungen verhalten sich ohne erkennbaren Unterschied

wenn er
debug.print "error " & err.number
debug.print err.description
debug.print "starting autocad"

err.clear

acadapp = neue acadapplication
'set acadapp = Interaktion.createobject("autocad.application.22")
Die obigen Ausführungen verhalten sich ohne erkennbaren Unterschied

„wesentliche Erklärung
acadapp.visible = true

wenn er
msgbox err.description
Ausgang Sub
Ende
Ende

debug.print "jetzt läuft " + acadapp.name + " Version " + acadapp.version

acaddoc = acadapp.activedocument
wenn acaddoc nichts ist
acaddoc = acadapp.documents.add
Ende

wenn acaddoc. Aktivraum = 0 dann
acaddoc.activespace = 1
Ende

Endteil



privater Sub-Befehlbutton8_click()

Anruf connect_acad
Rotim Strartpoint10(0 bis 1)
dim pointfinal(0 bis 1) als doppelt
dim pointfina2(0 bis 1) als Doppel
dim ptconfigs als acadplotconfigurations
dim lotconfig als acadplotconfiguration
dim ptobj als acadplo
dim backplot als Variante


Punktfinale(0) = Strartpoint10(0)
Punktfinale(1) = Strartpoint10(1) - 29.7
Punktfin2(0) = Strartpoint10(0)
Punktfina2(1) = Strartpoint10(1) - 29.7

ptobj = acaddoc.plot
ptconfigs = acaddoc.plotconfigurations
ptconfigs.add "pdf", falsch
set lotconfig = ptconfigs.item("pdf")
planconfig.standardscale = acscaletofit
wohnzimmer.de

lotconfig.setwindowtoplot pointfinal, pointfina2
lotconfig.getwindowtoplot pointfinal, pointfina2
lotconfig.configname = "dwg to pdf.pc3"
'plotconfig.stylesheet = "monochrome.ctb"
'plotconfig.centerplot = true

wohnzimmer.de
plotconfig.plottype = acwindow
lotconfig.canonicalmedianame = "iso_a3_(420.00_x_297.00_mm)"
wohnzimmer.de

wenn ptobj.plottofile(ersetzt(acaddoc.fullname, "dwg", "pdf"), lotconfig.configname) dann
msgbox "pdf creato"
andere
msgbox "pdf non creato"
Ende
ptconfigs.item("pdf"). Löschen
set lotconfig = nichts

Endteil