yazdır butonu iptali

[akd]

Merhaba arkadaşlar,
Başlıklı yazı kitabında alt alta 20-25 sayfa yazı var, örneyin 16 ıncı sayfadaki yazı lazım olunca onun üzerinde degişiklik yapıp yazdırıyoruz,
Bazan dalgınlıkla direk yazdır butonuna tıklayınca , bütün kitapları yazdırmaya başlıyor.
işte bunu önlemek için yazdır butonunu pasifize etmek istedim,
bununla ilgili bir kod varsa ,
benimle paylaşırsanız çok sevinirim...
Teşekkürler

 

[Haluk]

Bu problem, Excel mi yoksa Word belgesi için mi ?

 

[Metin Karaağaç]

Bunu deneyin

 

[akd]

Merhaba sayın arkadaşlar,
Acemi arakadaşımın cevabı, bir çözüm olabilir.teşekkürler.

Sayın Haluk sorum word deki yazdırı pasifize etmekti , sizede teşekkür ederim.
makrolu bir çözümü varsa lütfen yazarmısınız...

 

[Haluk]

Bu biraz daha değişik bir yöntem.

Word dokümanında "yazdır" düğmesine tıklayınca, dokümandaki sadece aktif sayfa yazdırılacaktır.

Bunun için sözkonusu Woprd belgesine bir Class Modül ekleyin ve "properties" penceresinde bu class modulün Name özelliğini ModEvents olarak değiştirin.

Bu class module aşağıdaki satırları yapıştırın.

Public WithEvents App As Word.Application
'
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
    ActiveDocument.PrintOut Range:=wdPrintCurrentPage
    Cancel = True
End Sub

Þimdi, ThisDocument modulüne aşağıdaki satırları yapıştırın.

Dim MyWd As New ModEvents
'
Private Sub Document_Open()
    Set MyWd.App = Word.Application
End Sub

Daha sonra dokümanı kaydedin, kapatın ve tekrar açın.

Þimdi farenin imleci hangi sayfadaysa, belgeyi yazdırmak istediğiniz zaman sadece o sayfa yazdırılacaktır.

 

[akd]

ÇOK ÇOK teşekkürler sayın haluk kardeş,
elleriniz dert görmesin

ado konusubda bir soru sormuştum , bir zahmet ilgilenebilirmisiniz
selamlar saygılar...

 

[akd]

Merhaba sayın Haluk kardeş
bu dediklerinizi yaptım ,
yine aynı birinci sayfadan yazdırmaya başlıyor,
size belgeyi gönderiyorum,
saygılar selamlar...

 

[akd]

Çok özür dilerim,
yanlışlıkla iki kere göndermişim

 

[TRABLUS]

Çok özür dilerim,
yanlışlıkla iki kere göndermişim

Ã?zür dilemenize gerek yok, olur böyle yanlışlıklar. (Birisini ben sildim.)

 

[akd]

Çok çok teşekkür ederim sayın TRABLUS , selam ve saygılar...

 

[Haluk]

bu dediklerinizi yaptım ,
yine aynı birinci sayfadan yazdırmaya başlıyor,

Merhaba;

Herhangibir sorun yok.

Ben belgeyi açtım ve örnek olarak 9ncu sayfaya gelip, farenin imlecini bu 9ncu sayfada herhangibir yere konumlandırdım ve "yazdır" düğmesine tıkladım. Sadece bu 9ncu sayfa yazdırıldı.

 

[akd]

Merhaba sayın Haluk,
benim ofis2003
yazıcımızda ağda burası resmi kurum olduğu için yazıcı diger bilgisayarda
ağdan dolayı çalışmıyor olabilirmi... acaba ?
selamlar...
özür dileyerek size birşey söylemek istiyorum,
makrolar kısmına bir soru sordum şu sizin ADO ile ilgili ona bir zahmet bakabilirmisiniz..
iyi öğlenler...