Eğer print yada iptal se devam etsin

[Zeyback]

Merhabalar,

benim takıldığım bir konu var

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
ActiveSheet.Shapes("Resim 1").Delete

print yapar gibi dialog pencerisinin açılmasını istiyorum fakat print sonrasında

" ActiveSheet.Shapes("Resim 1").Delete" macrosu işlesin

benim makromda peşpeşe olduğunda print pencerisi açılıyor ve kapanıyor daha print yapmadan resmi siliyor ve print out alamıyorum.

Not:Sadece "Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")" macro komut kullanmam lazım diğer print macrolarını istemiyorum

yardımlarınızı bekliyorum

 

[askm]

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
MsgBox "Yazdırıldı..."
ActiveSheet.Shapes("Resim 1").Delete

şeklinde yaparsanız siz tamam diyene kadar sonraki aşamaya geçmez. Ya da msgbox yerine 5-10 saniye bekleme ekleyebilirsiniz.

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
Application.Wait Now + TimeValue("00:00:05") şeklinde.
ActiveSheet.Shapes("Resim 1").Delete

 

[Ömer]

Merhaba,

Delete satırından önce;

Application.Wait Now + TimeValue("00:00:01")

Ekleyerek deneyin.

.

 

[Zeyback]

Merhaba, Askm

İlk önce tüm yardımlarınız için çok teşekkürler

verdiğiniz kodda pencere açılır açılmaz yazdırıldı penceresi çıkıyor

fakat ben "yazıdırıldı..." penceresi açılmadan önce daha print yapmadım.

yani penceredeki print butonuna basmadım benim sorunum bu butona basıp yazmak yada iptal etmek

yardımlarınızı bekliyorum

tşk

 

[askm]

Örnek dosya eklerseniz dosya üzerinden çözüm üretelim.

 

[Zeyback]

Askm,

Size mail attım

Tşk

 

[askm]

Kusura bakmayın indirme sitesinden indiremiyorum. Askmadige34@hotmail.com adresine mail atarsanız yardımcı olmaya çalışırım.