Sadece butonla yazdırma

[zehnisağcan]

Saygıdeğer hocalarım exel çalışmam var

sayfada buton ekledim aynı buton hem yazdırıyor, hem sıralıyor ve aynı zamanda başka sayfaya işliyor herseferinde. Bende bunu ağda çalışan arkaşadaşlarla birlikde kullanıyorum.

Benim istediğim sadece ve sadece sayfada bulunan buton u (yazdır) kullanılmasını istiyorum

cntrl+p veya başka bir komutla yazdırılmasını istemiyorum

MODÜLDE KULLANILAN YAZDIR MACROSU:
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True

butonla yazdırılmassa başka sayfaya işleme yapmıyor

yardımcı olabilirseniz sevinirim


saygılar

 

[Excelmy]

Benim istediğim sadece ve sadece sayfada bulunan buton u (yazdır) kullanılmasını istiyorum

cntrl+p veya başka bir komutla yazdırılmasını istemiyorum

Sayın zehnisağcan ,

Anladıgım kadarıyla istediğiniz ekteki dosyada.
İnceleyiniz .
Saygılarımla.

 

[zehnisağcan]

Evet hocam güzel cntrl+p yi engelliyor ama sayfada bulunan "prıntır simgesi ile yazdır" engellemiyor istediğim bu şekilde ama eksik

yazdır komutu verebileceğimiz yerlerin tamamımını kapatıp sadece buton ile yazdırmak istiyorum

 

[Excelmy]

Evet hocam güzel cntrl+p yi engelliyor ama sayfada bulunan "prıntır simgesi ile yazdır" engellemiyor istediğim bu şekilde ama eksik

Sayın zehnisağcan ,

Lütfen konu başlıgı altındaki #2 no.lu mesajı tekrar incelyiniz.

 

[zehnisağcan]

Evet çok güzel oluyor hocam elinize sağlık şimdi benim çalışmama uygulayacam inşallah sorun çıkmaz

 

[Ömer]

Merhaba,

Alternatif olarak ThisWorbook sayfasına aşağıdaki gibi kod yazabilirsiniz. Yazdır yada ctrl p den yazdırma işlemi yapılsada sizin kodlar çalışacaktır.

[COLOR=blue]Private Sub Workbook_BeforePrint(Cancel As Boolean)[/COLOR]
[COLOR=red].[/COLOR]
[COLOR=red].[/COLOR]
[COLOR=red]Araya kodlarınızı yazarsınız..[/COLOR]
[COLOR=red].[/COLOR]
[COLOR=red].[/COLOR]
[COLOR=blue]End Sub[/COLOR]

.

 

[zehnisağcan]

Teşekürler hocalarım emekleriniz için ilgilendiğiniz için teşekür ederim.

 

[zehnisağcan]

Kuman hocam son mesajınıza göre çalışmamı düzenledim ama ekle butonda da uyarı veriyor ondan sonra yazdırıp başka sayfaya bilgileri işliyor

uyarıyı cntrl+p ve diğer yazdırma işlemleri için uygulatma imkanımız yok mudur butonda değil ama

 

[zehnisağcan]

ömer hocam . ların yerlerine ne kod gelmesi gerekmektedir.

 

[Ömer]

Yazdır butonunda hangi kodu kullanıyorsanız o kodları yazmanız yeterli olur. İlk mesajınızdaki örnekten gidersek,

Private Sub Workbook_BeforePrint(Cancel As Boolean
     ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
End Sub

Bu şekilde kullanabilirsiniz.

Ayrıca Eventi (Olayı) Hamit bey'den öğrendiğim bir çalışma ekliyorum.

.

 

[zehnisağcan]

hocam ben bu örnekleri uygulamaya çalışıyorum ama olmuyor

bir buton var bu butonun üzerinde :
-ekle macrosu(başka bir sayfaya gönderme)
-sıraya dizme macrosu
-birde yazdırma macrosu var oda sadece buton üzerinden yazdırmak istiyorum

 

[zehnisağcan]

Sadece ekle butonu ile yazdırma - ekleme- sıraya dizme

Sayın hocalarım çalışmamı ekte veriyorum bi bakabilirmisiniz ben bu sizin son verdiğiniz çalışmadaki macroyu uyarlayamadım

son mesajınızda vermiş olduğunuz örnek çalışma gibi istiyorum ama

bi bakabilirmisiniz ekte benim çalışmam

 

[Ömer]

Eki inceleyin.

.

 

[zehnisağcan]

hocam yazdır butonu eklemesek de tek butona eklesek macroyu olmaz mı

 

[Ömer]

Ekle makrosundan mı bahsediyorsunuz.

 

[zehnisağcan]

çünkü ağda kullanacam için çalışmayı atlama durumu olabilir yani benim esas istediğim başka işlemlerde var orda oda izin kartına işleyiniz butunu nu kullandırmak ki izin kartına işleme yapılsın

 

[zehnisağcan]

evet hocam ekle macrosundan bahsediyorum

 

[zehnisağcan]

şahıs izin formu yazdırıyorsa izin kartına şahsın izni düşmesi lazım öyle resmiyet kazanıyor

 

[Ömer]

Yazdır makrosunu ve butonunu silin.

Sizin makroya küçük bir ilave yapın. Makronun başına ve sonuna aşağıdaki gibi deger = 1 ve deger = 0 ekleyin. Diğer ilave kodlar kalsın.

Sub Ekle()
deger = 1
..
..
..
deger = 0
End sub

 

[zehnisağcan]

aynı hocam buton var yine