Tek veya çift sayfaları yalnızca Excel'de nasıl yazdırabilirim?

Hepimizin bildiği gibi, tek veya çift sayfaları yalnızca Word 2013'te Yazdır bölümünde aşağıda gösterilen ekran görüntüsü gibi yazdırabiliriz. Ancak, Excel Yazdırma işlevinde tek veya çift sayfaları yazdırma seçeneği yoktur. Ancak burada, ihtiyacınız olduğu kadar Excel'de yalnızca tek veya çift sayfaları yazdırabilen bir kod sunabilirim.

Tek veya çift sayfaları yalnızca Makro kod ile yazdırın
Kutools for Excel ile tek veya çift veya belirli sayfaları istediğiniz gibi yazdırın

Tek veya çift sayfaları yalnızca Makro kod ile yazdırın

1. Tek veya çift sayfalarını yazdırmak istediğiniz sayfayı etkinleştirin ve düğmesine basın. Alt + F11 tuşlarını açmak için Uygulama için Microsoft Visual Basics penceresi.

2. tık Ekle > modüle ve aşağıdaki kodu Module komut dosyasına yapıştırın. Ekran görüntüsüne bakın:

VBA: Yalnızca tek veya çift sayfaları yazdırın

Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
  For xPage = Int(xStartPage) To xTotalPages Step 2
    ActiveSheet.PrintOut from:=xPage, To:=xPage
  Next
Else
  Exit Sub
End If
Application.ScreenUpdating = True
End Sub

3. Basın F5 kodu çalıştırmak için tuşuna basın ve tek veya çift sayfaları yazdırmayı seçmeniz için bir iletişim kutusu açılır, 1 tek sayfaları yazdırmak için, 2 çift ​​sayfalar için. Ekran görüntüsüne bakın:

4. tık OKve yazdırmak isteyip istemediğinizden emin olmak için başka bir iletişim kutusu açılır. Ekran görüntüsüne bakın:

5. tık Evet baskıya devam etmek için. Ve sonra aktif yaprağın yalnızca tek veya çift sayfaları yazdırılır.

Kutools for Excel ile tek veya çift veya belirli sayfaları istediğiniz gibi yazdırın

Kutools for Excel'e sahipseniz, yalnızca çift veya tek sayfaları aynı anda yazdırmakla kalmaz, aynı zamanda istediğiniz sayfayı olabildiğince çabuk yazdırabilirsiniz.

Sonra ücretsiz kurulum Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

Tıkla Kutools Artı > Baskı > Belirtilen Sayfaları Yazdır etkinleştirmek için Belirtilen Sayfaları Yazdır iletişim kutusunu açın ve yazdırma için kullanmanız gerektiğinden seçenekleri kontrol edin.

Bahşiş:

1. Sayfa 1,3,5 ve sayfa 9 ila 12 gibi özel bir sayfa aralığı yazdırmak istiyorsanız, yalnızca Özel aralık seçenek ve şöyle yazın:

2. Baskı kopyalarını da ayarlayabilirsiniz.

3. Sayfaları ters sırada yazdırmak istiyorsanız, Ters sırada yazdırın.

  Gösteri

En İyi Ofis Üretkenlik Araçları

🤖	Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
	Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
	Süper Arama: Çoklu Ölçütlü VLookup  |   Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
	Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
	Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
	Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu   |  Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz   |  E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
	En İyi 15 Araç Seti:  12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Devamı ... Ücretsiz indirin...

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin...