Araç Servis Takip Programı (AST-v.2) foruma eklenmiştir. 
http://www.excelce.net/forum/index.php?topic=1656.0

Gönderen Konu: [Çözüldü] Sayfaları Toplu Yazdırma  (Okunma sayısı 7914 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
[Çözüldü] Sayfaları Toplu Yazdırma
« : 25 Temmuz 2010, 19:38:37 »
Evren Abi
11 sayfam var 11. sayfa hariç diğer sayfaları userformda bir düğme ile yazırabilir miyim ?
« Son Düzenleme: 26 Temmuz 2010, 09:46:40 Gönderen: Bülent Öztürk »

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Toplu yazdırma
« Yanıtla #1 : 25 Temmuz 2010, 20:25:14 »
ilk 10 sayfanın A1:E10 aralığını yazdırır. 8)
Kod: [Seç]
Dim i As Byte
For i = 1 To 10
    Sheets(i).PageSetup.PrintArea = "A1:E10"
    Sheets(i).PrintOut
Next

Çevrimdışı yesilyurtlu

  • Excelce Çavuş
  • ***
  • İleti: 168
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: İlhan YÜKSEL
  • İşletim Sisteminiz: Windows 7 32 Bit
  • Mesleğiniz: Muhasebe Şefi
  • Office Versiyonunuz: Office 2013 TR
Ynt: Toplu yazdırma
« Yanıtla #2 : 26 Temmuz 2010, 09:32:28 »
Evren Abi Teşekkür Ederim :begendim

Çevrimdışı Orion1

  • Excelce Teğmen
  • ****
  • İleti: 351
  • Puan +10/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Evren Gizlen
Ynt: Toplu yazdırma
« Yanıtla #3 : 26 Temmuz 2010, 12:20:46 »
Evren Abi Teşekkür Ederim :begendim
Rica ederim. 8)