Hızlı Yazdırma

[alves]

bir excel sayfası içinde 9 adet aynı dosya içinde çalışma sayfası var bir çalışma sayfasına bilgileri giriyorum ve diğer çalışma sayfalarına köprüyle veriler aktarılıyor. benim öğrenmek istediğim ben her seferinde tüm çalışma sayfalarına tıklayarak yazdırma işlemini yapıyorum. acaba bunu tek tıklamayla yapabilirmiyim. yani verilere girdikten sonra bir işlemle tüm çalışma sayfalarının yazıdırabilirmiyim.

şimdiden teşekkür ederim.

 

[usubaykan]

Selamlar,
Aşağıdaki kodu denermisiniz.Tüm sayfalar için geçerli bir koddur.

sub yazdır()
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub

 

[alves]

ben ne demek istediğini anlamadım bu kodu nereye yazacağım onuda söylersen anca anlarım

 

[usubaykan]

Selamlar,

ARAÇLAR/MAKRO/VISUAL BASIC sırasıyla takip edin. Daha sonra açılan pencerede VBAPROJECT kısmında sizin kitap isminiz olacak. O kitap üzerinde sağ klik yapıp INSERT/ MODULE eklemelisiniz. Daha sonra yazdırmak istediğiniz kitap üzerine bir düğme eklemeli ve makroyu ona atamalısınız. Umarım anlaşılır bir dilde yazmışımdır. Kolay gelsin

 

[alves]

çok teşekkür ederim bilgiler çok işime yarada ama yine benim bir isteğim daha olacak sizden

sayfanın içinde sayfa1,sayfa2,sayfa3,sayfa4,sayfa5 şeklinde çalışma safyalarım var ben bunlardan sayfa5 yazdırmak istemiyorum bunu nasıl yapacağım yardımcı olursanız sevinirim

 

[usubaykan]

çok teşekkür ederim bilgiler çok işime yarada ama yine benim bir isteğim daha olacak sizden

sayfanın içinde sayfa1,sayfa2,sayfa3,sayfa4,sayfa5 şeklinde çalışma safyalarım var ben bunlardan sayfa5 yazdırmak istemiyorum bunu nasıl yapacağım yardımcı olursanız sevinirim

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub yazdır()
  Worksheets(Array("Sayfa1", "Sayfa2", "Sayfa3", "Sayfa4")).Select
  ActiveSheet.PrintOut Copies:=1, Collate:=True
End Sub

 

[alves]

dosyayı eklemek istiyorum ama boyutu büyük görünüyor. size dosyayı göndersem ben yaptım sadece bir çalışma belgesini yazdrabildim. e-mail adresinizi verirseniz dosyayı size göndermek istiyorum.

 

[usubaykan]

Selamlar,

Sn Alves dosyanızı Rar. yada Zip. olarak ekleyebilirsiniz. Böylelikle herkesin görmesine izin vereceksiniz ve belkide daha iyi fikirler edinebileceksiniz.

 

[alves]

dosya ekte

 

[usubaykan]

Selamlar,

Dosyanızı açamıyorum farklı kaydetten 2003 olarak tekrar kaydedip gönderirmisiniz.

 

[usubaykan]

Kodu denermisiniz.

Sub yazdır()
  Sheets(Array("ANA SAYFA", "TUS", "MT", "BAŞLIK")).Select
  ActiveSheet.PrintOut Copies:=1, Collate:=True
  MsgBox ("YAZDIRMA İŞLEMİ BİTMİŞTİR")
End Sub

 

[alves]

dosya ekte

 

[usubaykan]

KODU DENERMİSİNİZ.

Sub yazdır()
  Sheets(Array("ANA SAYFA", "TUS", "MT", "BAŞLIK")).Select
  ActiveSheet.PrintOut Copies:=1, Collate:=True
  MsgBox ("YAZDIRMA İŞLEMİ BİTMİŞTİR")
End Sub

 

[alves]

Burda sadece ana sayfa yazılıyor ben ana sayfa hariç diğer sayfaları yazdırmak istiyorum

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub HIZLI_YAZDIR()
    Sheets(Array("TUS", "MT", "BAŞLIK", "K ort HESABI", "HESAP DEĞERLERİ", "DETAYLAR")).PrintOut
    Sheets("ANA SAYFA").Select
End Sub

 

[alves]

verdiğiniz bu kodları yazıyorum ama sayfayı kayıtederken

Aşağıdaki özellikler makro içermeyen çalışma kitaplarına kayıtedilemez

*VB projesi

Dosyayı bu özelliklerle.......

diye devam ediyor

buna nasıl aşabilirim.

 

[alves]

herhalde bu konu burda kapandı

 

[parametre]

bu kodları makroya kaydedip bir tane butona baglamak gerekiyor

 

[alves]

dediğiniz gibi oluyor ama yinede tam anlamıyla bi randuman alamadım henüz

 

[Korhan Ayhan]

Selamlar,

Sn. alves hangi konuda randıman alamadınız belirtirmisiniz.