1,3 ve 5. sayfaları tek bir sayfada vba ile yazdırmak mümkün mü ?

[blackkugu]

Sheet1 de hücreler içerisinde sayfalar mevcut malum sayfalar 1,3 ve 5. sayfaları alt alta sığacak şekilde tek bir sayfada nasıl çıktı alınabilir ?
bunu vba ile yapmak mümkün mü ?
Tşk ederim.

 

[Necdet]

Merhaba,
Makro kaydet ile kodları alabilirsiniz.

    Sheets(Array("Sayfa1", "Sayfa3", "Sayfa5")).PrintOut Copies:=1, Collate:=True

 

[blackkugu]

Merhaba,
Makro kaydet ile kodları alabilirsiniz.

    Sheets(Array("Sayfa1", "Sayfa3", "Sayfa5")).PrintOut Copies:=1, Collate:=True

deneyeceğim tşk ler.

 

[blackkugu]

Merhaba,
Makro kaydet ile kodları alabilirsiniz.

    Sheets(Array("Sayfa1", "Sayfa3", "Sayfa5")).PrintOut Copies:=1, Collate:=True

yok olmadı:

With Sheets(ActiveSheet.Name).PageSetup
.Zoom = False
'.LeftMargin = Application.CentimetersToPoints(3)
.Zoom = 65
.CenterHorizontally = True ' ekranı sayfaya ortalıyoruz.
.FitToPagesTall = 1
.FitToPagesWide = 1

End With
ActiveSheet.PrintOut Preview:=True
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1 ' 1. sayfayı yazdır
ActiveSheet.PrintOut From:=3, To:=3, Copies:=1 ' 3. sayfayı yazdır
ActiveSheet.PrintOut From:=5, To:=5, Copies:=1 ' 5. sayfayı yazdır


aktif sayfanın içerisinde 1.3. ve 5. sayfaları bu şekilde tek tek çıktı alıyorum fakat tek sayfa içerisinde almam gerek nasıl sığdırırım

 

[Necdet]

Merhaba,
Benim verdiğim sheetleri yazdırıyordu, soruyu o şekilde anlamışım.

 

[blackkugu]

Merhaba,
Benim verdiğim sheetleri yazdırıyordu, soruyu o şekilde anlamışım.

sanırım tek sayfa olarak almam gerekecek 18 sınıftan 3 sayfa 54 sayfa eder

 

[netzone]

sanırım tek sayfa olarak almam gerekecek 18 sınıftan 3 sayfa 54 sayfa eder

Merhaba, Sayfadan kastınız 1 A4 sayfasına belirttiğiniz 3 excel sayfasının sığdırılmasını mı istiyorsunuz?
Evet ise; Excel de yapmanın bir yolu var mı bilmiyorum ama şunu yapabilirsiniz:
Belirttiğiniz sayfaları yazıcı yerine PDF olarak çıktı alın.
Ardından internet tarayıcınız (Chrome, Firefox ..) ile PDF dosyanızı açın.
Yazdırma seçeneklerinde Yaprak başına 4 sayfayı işaretleyin.
Tek sayfaya sığdırmış olacaksınız. İyi çalışmalar.

 

[blackkugu]

Merhaba, Sayfadan kastınız 1 A4 sayfasına belirttiğiniz 3 excel sayfasının sığdırılmasını mı istiyorsunuz?
Evet ise; Excel de yapmanın bir yolu var mı bilmiyorum ama şunu yapabilirsiniz:
Belirttiğiniz sayfaları yazıcı yerine PDF olarak çıktı alın.
Ardından internet tarayıcınız (Chrome, Firefox ..) ile PDF dosyanızı açın.
Yazdırma seçeneklerinde Yaprak başına 4 sayfayı işaretleyin.
Tek sayfaya sığdırmış olacaksınız. İyi çalışmalar.

bu yöntem hiç aklıma gelmedi bir deneyeyim. tşk ederim.

 

[blackkugu]

Yaptım sayfada görünümleri çok küçüldü net değil en iyisi tek sayfada çıkarmak haliyle okunması gereken notlar var sağolun yinede.

 

[netzone]

Merhaba, Yukarıda belirttiğim gibi yaparken kenar boşluklarını ve alt-üst bilgiyi kaldırırsanız bir nebze daha büyüyecektir. ama daha fazla büyümesi maalesef mümkün değildir. Kağıt tasarrufu için Sayfaya 4 değil 2 sayfa sığdursanız a5 boyunda olur önlü arkalı yaparsanız yine tek 1 A4 e sığmış olur. ihtiyacınızı karşılar mı bilemem
iyi çalışmalar.