VBA ile Baskı

  • Konuyu başlatan Konuyu başlatan yag
  • Başlangıç tarihi Başlangıç tarihi

yag

Guest
pdf'de selamlanmamış selamlar bize veo arayışına girer:

dim, acadplot formasyonlar olarak yapılandırılır
dim setting as acadpposuration
dim ptobj as acadplot
dim backplot as variable

Tüm gerekli parametrelerle yeni bir arsa yapılandırın
ptobj = budrawing. arsa
Setler = budrawing. Düzelticiler
“Yeni bir arsa konfigürasyonu ekle
"pdf", false
Oluşturduğunuz arsa aktif hale gelir
arsa yapısı = ptallar.item("pdf)
“Bu yöntemi ölçeklendirmek için kullanın
arsa yapısı = ascaletofit
“Arsayı günceller
arsa.refreshplotdeviceinfo
“Burada, kullanmak istediğiniz PC3 dosyasını belirtirsiniz
arsa yapısı. name = "dwg to pdf.pc3"
“Buradaki arsa tarzı masayı seçebilirsiniz
arsa.stylesheet = "acad.ctb"
“Arsa stilleri kullanarak arsamak ya da arsamak anlamına gelir
arsa.plotstyles = true
"Budrawing.layouts ("model")canonicalmedianame = "a4"

“Eğer bir toplu modda pdf dosyaları oluşturacaksanız,
"i, arka plan sistemi değişkenini kapatmayı tavsiye eder,
'O otocad bitinceye kadar hiçbir şey yapmaya devam etmeyecek
"The pdf creation
backplot = budrawing.getvariable("backgroundplot")
Budrawing. Setvariable "backgroundplot", 0
“Arsayı günceller
arsa.refreshplotdeviceinfo
“Şimdi arsatofile yöntemi kullanabilirsiniz
Eğer ptobj.plottofile(replace(budrawing.fullname, "dwg", "pdf") arsa yapılandır.
msgbox "pdf yaratıldı"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
msgbox "pdf yaratım başarısız"
Sonunda, eğer sona erirse
“Eğer yarattığınız komplo yapılandırmasını silebilirsiniz
“Programatik olarak ve ‘backgroundplot’ sistemini değişken olarak ayarlar
“Onun orijinal durumu.
Yapılar.item("pdf). silinir
Set kurma = Hiçbir şey
Budrawing. Setvariable "backgroundplot", backplot


però dovrei immailre formato del foglio su a0 gelir ve?
 
pdf'de selamlanmamış selamlar bize veo arayışına girer:

dim, acadplot formasyonlar olarak yapılandırılır
dim setting as acadpposuration
dim ptobj as acadplot
dim backplot as variable

Tüm gerekli parametrelerle yeni bir arsa yapılandırın
ptobj = budrawing. arsa
Setler = budrawing. Düzelticiler
“Yeni bir arsa konfigürasyonu ekle
"pdf", false
Oluşturduğunuz arsa aktif hale gelir
arsa yapısı = ptallar.item("pdf)
“Bu yöntemi ölçeklendirmek için kullanın
arsa yapısı = ascaletofit
“Arsayı günceller
arsa.refreshplotdeviceinfo
“Burada, kullanmak istediğiniz PC3 dosyasını belirtirsiniz
arsa yapısı. name = "dwg to pdf.pc3"
“Buradaki arsa tarzı masayı seçebilirsiniz
arsa.stylesheet = "acad.ctb"
“Arsa stilleri kullanarak arsamak ya da arsamak anlamına gelir
arsa.plotstyles = true
"Budrawing.layouts ("model")canonicalmedianame = "a4"

“Eğer bir toplu modda pdf dosyaları oluşturacaksanız,
"i, arka plan sistemi değişkenini kapatmayı tavsiye eder,
'O otocad bitinceye kadar hiçbir şey yapmaya devam etmeyecek
"The pdf creation
backplot = budrawing.getvariable("backgroundplot")
Budrawing. Setvariable "backgroundplot", 0
“Arsayı günceller
arsa.refreshplotdeviceinfo
“Şimdi arsatofile yöntemi kullanabilirsiniz
Eğer ptobj.plottofile(replace(budrawing.fullname, "dwg", "pdf") arsa yapılandır.
msgbox "pdf yaratıldı"
Başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka başka
msgbox "pdf yaratım başarısız"
Sonunda, eğer sona erirse
“Eğer yarattığınız komplo yapılandırmasını silebilirsiniz
“Programatik olarak ve ‘backgroundplot’ sistemini değişken olarak ayarlar
“Onun orijinal durumu.
Yapılar.item("pdf). silinir
Set kurma = Hiçbir şey
Budrawing. Setvariable "backgroundplot", backplot


però dovrei immailre formato del foglio su a0 gelir ve?
El yok mu?
 
Budrawing.layouts ("model")canonicalmedianame = "iso_full_bleed_a0_(841.00_x_1189.00_mm)"

Budrawing.layouts ("model") ne kontrol edin. Canonicalmedianame by manually setting on a0 and use that !!!
 
Zaten yapmış ancak kanoniki dayatılanda hata yaparak ve mevcut değilse
Ya da daha iyi, şu anki sürümden o kadar iyi olur, ancak yumuşak ben farklı makineler ve versiyonlar üzerinde çizgi çizeceğim, belki de kağıt boyutunun runtime listesini geri kazanmak ve kullanıcıyla seçmek daha iyi olacaktır. .
 
Ya da bir kağıt boyutu 0'a eşit mi (bu ayarları nasıl kurtarılır?) Ve sonra buna izin verdim...
 
Ya da bir kağıt boyutu 0'a eşit mi (bu ayarları nasıl kurtarılır?) Ve sonra buna izin verdim...
bhè, bir baskı sürücüsü tarafından uygulanan bir format kullanmak zorundaysanız ve sürücü her zaman aynı ayarlarla aynı değildir, herkes için iyi giden birini tanımlamak zor.

Bilmiyorum. ve pdf.pc3'e yüklenmek için bir ampirik dosyayı dağıtıp dağıtabilir mi?
 
bhè, bir baskı sürücüsü tarafından uygulanan bir format kullanmak zorundaysanız ve sürücü her zaman aynı ayarlarla aynı değildir, herkes için iyi giden birini tanımlamak zor.

Bilmiyorum. ve pdf.pc3'e yüklenmek için bir ampirik dosyayı dağıtıp dağıtabilir mi?
Bir ayar yaratabilir miyim ve sonra çalıştırılabilir mi?
 
Canonicalnamelerin listesini kurtarmanın yolunu buldum ama ne zaman uygulandı
Bu iso_expand_a0_(841.00_x_1189.00_mm) beni kodla kurtarmayı temsil ediyor ve bunun yerine el ile yaptığım liste arasında mevcut.
 
Tamamlandım baskı ama neden pdf ile karşılaştırıldığında çok küçük olduğunu anlamıyorum
 
Zaten yapmış ancak kanoniki dayatılanda hata yaparak ve mevcut değilse
Sonra bu kodu söylüyoruz:


dim, acadplot formasyonlar olarak yapılandırılır
dim setting as acadpposuration
dim ptobj as acadplot
dim backplot as variable

Tüm gerekli parametrelerle yeni bir arsa yapılandırın
ptobj = budrawing. arsa
Setler = budrawing. Düzelticiler

"pdf", false
arsa yapısı = ptallar.item ("pdf)
arsa.refreshplotdeviceinfo

arsa yapısı. name = "dwg to pdf.pc3"
"parça.canomedianame = 'ansi_a_(11.00_x_8.50_inches) ‘ ‘ ‘
"p configurelot. standardscale = acscaletofit
"p configurelot.use standardscale = true
"p configurelot.setcustomscale 1, 1
"p configurelottype = acextents
arsa.plotstyles = true
arsa.stylesheet = "acad.ctb"



newfilename = (budrawing.fullname), "dwg", "pdf")
newfilename = ucase(newfilename)


Eğer ptobj.plottofile (newfilename, arsa yapılandırın).

msgbox "uncreated pdf hatası"
Sonunda, eğer sona erirse

Yapılar.item("pdf).
Set kurma = Hiçbir şey


Beni "iyi" yaratırım, ancak onu otocad ile açtığımda kötü bir şekilde dönerdim
Onu doğrudan koymak için Her zaman 90 dereceye kadar akrobad ile döndürmek zorundayım.

Ancak sorun hala sorun değil ve siyah ve beyaz baskının hiç olmadığı kadar renkli değil mi?
 
Ancak sorun hala sorun değil ve siyah ve beyaz baskının hiç olmadığı kadar renkli değil mi?
Ne okuduğumdan itibaren, arsa.stylesheet = "acad.ctb" model uzay için düzeni ayarlamıyor... Belki de öyle !!!

Aslında, baskı stiline el basarsa ve sonra pdf'in renginde ortaya çıkar.
 
Bunu yazmak için foruma giriyordum ama bunu nasıl çözerim?
Eğer akrobad yazarın oluşturduğunuz rotasyon için ek kodu faydalı olabilirse:

dim akroapp as akrobat.cacroapp
dim part1document as acrobat.cacropddoc
dim num pages as Full
dim page as cacropd page

akroapp = createobject ("acroexch.app")
Bölüm1document = createobject ("acroexch.pddoc")
Bölüm1document.open (newfilename)
Sayfa = part1document.acquire page
"acroapp.show
Sayfa.setrotate (pdrotate270)
Bölüm1document.save 1, newfilename
Bölüm1document.close
akroapp.exit
 
Eğer akrobad yazarın oluşturduğunuz rotasyon için ek kodu faydalı olabilirse:

dim akroapp as akrobat.cacroapp
dim part1document as acrobat.cacropddoc
dim num pages as Full
dim page as cacropd page

akroapp = createobject ("acroexch.app")
Bölüm1document = createobject ("acroexch.pddoc")
Bölüm1document.open (newfilename)
Sayfa = part1document.acquire page
"acroapp.show
Sayfa.setrotate (pdrotate270)
Bölüm1document.save 1, newfilename
Bölüm1document.close
akroapp.exit
ho risolto cosovo


Budrawing.activelayout.plotWithplotstyles = false
Budrawing.activelayout.plotWithlineweights = false
 

Forum İstatistikleri

Konular
58,521
Mesajlar
499,056
Kullanıcılar
104,110
Son Üye
ChristianR

Çevrimiçi Üyeler

Şu anda çevrimiçi üye yok.
Geri
Üst