Farklı excel dosyalarının 1.sayfası hariç 2. ve daha fazla sayfalarını print alma.

Question

Merhaba Arkadaşlar,

Yurtdışından tarafıma mail yolu ile gönderilen 100'e yakın farklı excel dosyalarından, içerisinde benim işime yarayan 1. , 2. ve 3. sayfalarını aynı anda print almak istiyorum.

Bildiğiniz gibi farklı excel dosyalarını toplu seçip-sağ tuş-print ile 1. sayfaları print alınabiliyor. Ancak bunu 2. ve 3. sayfalar için nasıl uygularım.

Yardım rica ederim.

Tşk

Answer 1

Merhaba Arkadaşlar,

Yurtdışından tarafıma mail yolu ile gönderilen 100'e yakın farklı excel dosyalarından, içerisinde benim işime yarayan 1. , 2. ve 3. sayfalarını aynı anda print almak istiyorum.

Bildiğiniz gibi farklı excel dosyalarını toplu seçip-sağ tuş-print ile 1. sayfaları print alınabiliyor. Ancak bunu 2. ve 3. sayfalar için nasıl uygularım.

Yardım rica ederim.

Tşk 

Merhaba AltarTekin,

Mail yolu ile gelen dosyalarınızı bir klasörün içerisine yerleştirin.

Boş bir Excel Çalışma kitabı açınız.

Klavyeden ALT+F11'e basınız. Size VBA ekranını açacaktır.

Ekranın sol tarafında Project alanında açık olan kitabınızı görebilirsiniz.

VBAProject(Book1) üzerine mouse ile gelip sağ click -> insert -> module diyin.

Resimdeki gibi bir klasör içerisinde modül belirecektir.

Modüle çift tıkladıktan sonra, beyaz olan kod alanına aşağıdaki kodu yapıştırınız.

______________________________________

Sub Kitaplardan()

Application.ScreenUpdating = False

Application.DisplayAlerts = False

Dim yol As String

Dim kitaplar As String

Dim kitap As Workbook

yol = "C:........................................................."

kitaplar = Dir(yol & "*.xlsx")

    Do While kitaplar <> ""

Set kitap = Workbooks.Open(yol & kitaplar)

    Sheets(Array(1, 2, 3)).Select

    ActiveWindow.SelectedSheets.PrintOut

        kitap.Close

        kitaplar = Dir() 

    Loop

End Sub

______________________________________________________

Kodu yapıştırdıktan sonra,

yol = "C:........................................................."

satırında ufak bir değişiklik yapmanız gerekmektedir.

Çıktı almak istediğiniz excel dosyalarınızın bulunduğu klasörün yolunu buraya yapıştırınız.

Önemli olan nokta, yapıştırma işleminden sonra  bir \ daha koymanızdir.

yol = "C:\users\altar.tekin\downloads\çıktı"  gibi.

Düzenleme işlemini yaptıktan sonra klavyeden bir kere F5'e bastığınız zaman tüm kitaplardaki ilk üç sayfanın çıktısı otomatik olarak printer'a gönderilecektir.

Answer 2

Merhaba AltarTekin,

Birden fazla Excel çalışma sayfasında, sayfaların tamamı ve/veya bir kısmını vb. yazdırma işlemlerinin nasıl yapılacağına dair gerekli adımlar, aşağıdaki bağlantımızda tarafınıza sunulmuştur.

Çalışma sayfası veya çalışma kitabı yazdırma

Yardımcı olmamızı istediğiniz başka bir konu var ise lütfen bizi bilgilendiriniz.

Mutlu günler,

Özgehan

Answer 3

Merhaba Kubilay Bey,

Öncelikle detaylı açıklamanız için teşekkür ederim.

Bir yere kadar kolayca geldim ancak sonuca varamadım.

Son işlem olan F5'e bastıgımda ufak bir kare açılıyor ve RUN diye tuşlama sekmesi açılıyor. ve ben RUN'a basmama ragmen printler gelmiyor. Bu ekranın gelmesi normal mi? sizin acıklamanızda F5'den sonra printler gelecek yazmaktaydı.

Tşk'ler

Altar Bey Merhaba Tekrar,

F5' yazılan makroyu çalıştırmanın kısayolu. 

Play tuşuna basarak da makroyu çalıştırabilirsiniz.

Programın yapmış olduğu işlem, klasör içindeki tüm kitapları tek tek açarak, her birinin ilk üç sayfasının çıktısını almak şeklindedir.

Eğer makroyu çalıştırdığınız zaman kitapların açılmasını vs göremiyorsanız, makroyu tekrar gözden geçirmekte fayda var.

Eğer kitapların açılmasını görüyor, ancak print out olmuyorsa, yazıcı bağlantılarını kontrol etmelisiniz.

Answer 4

Merhaba Kubilay Bey,

Öncelikle detaylı açıklamanız için teşekkür ederim.

Bir yere kadar kolayca geldim ancak sonuca varamadım.

Son işlem olan F5'e bastıgımda ufak bir kare açılıyor ve RUN diye tuşlama sekmesi açılıyor. ve ben RUN'a basmama ragmen printler gelmiyor. Bu ekranın gelmesi normal mi? sizin acıklamanızda F5'den sonra printler gelecek yazmaktaydı.

Tşk'ler

Answer 5

Merhaba Altar Tekin,

Bahsettiğiniz şekilde Excel üzerinde bir fonksiyon yoktur. Bazı 3. parti eklentiler bu işlemleri yapabilmektedir. Ancak Microsoft Excel üzerinde Microsoft a ait bir eklenti yoktur. Makro ile yapılabilme ihtimali vardır belki ancak bunun için de VBA dilini bilmeniz gerekir bunun için gerekli desteği de MSDN Forumlarından alabilirsiniz.