• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

YAZDIRMA ARALIĞI

  • Konbuyu başlatan Konbuyu başlatan oerbas
  • Başlangıç tarihi Başlangıç tarihi
O

oerbas

Katılım
8 Ekim 2004
Mesajlar
317
Excel Vers. ve Dili
EXCEL 2003 TÜRKÇE
YAZDIRMA ARALIÐI

Selamlarımla;


UserForm üzerindeyken InputBoxlar aracılığı ile yazdırılan sayfa aralığının belirlenmesini sağlamak istiyorum. 50 sayfalık veri var ben ise sadece belirtilen sayfa aralığının yazdırılmasını istiyorum.

örneğin veri isimli sayfayı InputBox kutusuna Başlanğıç sayfa numarasını ikinci InputBox kutusundada son sayfa numarasını yazdıktan sonra MesgBox ile belirlenen aralığı yazdırmak istiyormusunuz diye sormasını evet deyince yazdırmasını hayır deyincede yazdırmayı iptal etmesini istiyorum. Yardımcı olursanız sevinirim
 
Aşağıdaki kodu deneyin.

[vb:1:5f59f36782]Private Sub CommandButton1_Click()
sor1 = InputBox("BAÞLANGIÇ SAYFA NOSUNU YAZINIZ")
sor2 = InputBox("BİTİÞ SAYFA NOSUNU YAZINIZ")
If sor1 = "" Or sor2 = "" Then Exit Sub
sor = MsgBox(sor1 & " NOLU SAYFA İLE " & sor2 & " NOLU SAYFA ARASI YAZDIRILACAKTIR ONAYLIYORMUSUNUZ", 4)
If sor = vbNo Then Exit Sub
For a = sor1 To sor2
Sheets(a).PrintOut
Next
End Sub[/vb:1:5f59f36782]
 
Selamlar Hocam

Kodu denedim belirtilen sayfa aralığı yerine mevcut sayfanın tamamı yazdırılıyor.
Beni ise örneğin sayfa1 in seçilip 1 ile 5. sayfa aralığını yazdırmak istiyorum.
 
Aşağıdaki kodu deneyin.

[vb:1:2cc0a0c6e7]Private Sub CommandButton1_Click()
sor1 = InputBox("BAÞLANGIÇ NOSUNU YAZINIZ")
sor2 = InputBox("BİTİÞ SAYFA NOSUNU YAZINIZ")
If sor1 = "" Or sor2 = "" Then Exit Sub
sor = MsgBox(sor1 & " NOLU SAYFA İLE " & sor2 & " NOLU SAYFA ARASI YAZDIRILACAKTIR ONAYLIYORMUSUNUZ", 4)
If sor = vbNo Then Exit Sub
ActiveSheet.PageSetup.PrintArea = sor1 & ":" & sor2
ActiveSheet.PrintOut
End Sub [/vb:1:2cc0a0c6e7]
 
Selamlar Hocam

Yeni gönderdiğiniz kodlarla sayfa aralığı değil satır aralığı veriliyor 1 ile 5. sayfa aralığını verdiğimde 1 v 2. satırlar yazdırılıyor. Sanıyorum küçük bir değişiklik daha yapılması gerekiyor. Saygılarımla
 
Bu sefer sanırım oldu. Hiç olmazsa farklı amaçlar içinde kod oluşturmuş olduk. :D

[vb:1:8907df5f2f]Private Sub CommandButton1_Click()
sor1 = InputBox("BAÞLANGIÇ SAYFA NOSUNU YAZINIZ")
sor2 = InputBox("BİTİÞ SAYFA NOSUNU YAZINIZ")
If sor1 = "" Or sor2 = "" Then Exit Sub
sor = MsgBox(sor1 & " NOLU SAYFA İLE " & sor2 & " NOLU SAYFA ARASI YAZDIRILACAKTIR ONAYLIYORMUSUNUZ", 4)
If sor = vbNo Then Exit Sub
ActiveWindow.SelectedSheets.PrintOut From:=sor1, To:=sor2, Copies:=1
End Sub
[/vb:1:8907df5f2f]
 
teşekkürler çok işime yarayacak
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst