Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: RifatD - 20 Aralık 2014, 10:25:11

Başlık: VBA makroyla sayfa yazdırma sorunu
Gönderen: RifatD - 20 Aralık 2014, 10:25:11

iyi çalışmalar

sayfa numaraları 1 den başlayarak sıralı olarak 23 e kadar gidiyor.
Bir etikete 15 ve 23 arasında numaralar aktarıyorum ve yazdır düğmesine basınca etiketteki sayfa isimlerini seçerek yazdırmasını istiyorum

örneğin 15 yazılıysa 1 den 15 e kadar sayfaları seçip yazdıracak. aşağıdaki kodu kullandığımda hep 2 mislini yazdırıyor. 15 seçiliyse 30 23 seçiliyse 46 tane sayfa yazdırıyor. Nedendir?

    If Label2.Caption = 15 Then
      Sheets(Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15")). _
        Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    End If

Başlık: Ynt: VBA makroyla sayfa yazdırma sorunu
Gönderen: Bülent Öztürk - 04 Ocak 2015, 21:14:58

Merhaba,

Dosya üzerinde izah edebilir misiniz?