• DİKKAT

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

Userformda sayfa yazdırma

  • Konbuyu başlatan Konbuyu başlatan özdil1
  • Başlangıç tarihi Başlangıç tarihi
Ö

özdil1

Katılım
17 Şubat 2009
Mesajlar
83
Excel Vers. ve Dili
office 2003
Saygıdeğer Hocalarım:
Ekte gönderdiğim dosyada 3 adet CommandButton’un her biri ile sayfaları ayrı ayrı yazdırmak istiyorum.Her sayfanın sonunda paraf var. Sayfalardan herhangi birini yazdırmak istediğimde, örneğin yazdırmak istediğimiz (sayfa1) olsun, (1 paraflı ve 2 parafsız) olmak üzere aynı andan 3 adet yazdıracak. Bu 3 ve 4 ncü sayfalar içinde aynı olacak. İlgili butonlara gerekli kodları atamanız hususunda çok değerli katkılarınızı bekler, saygılar sunarım.
 

Ekli dosyalar

özdil' Alıntı:
Saygıdeğer Hocalarım:
Ekte gönderdiğim dosyada 3 adet CommandButton’un her biri ile sayfaları ayrı ayrı yazdırmak istiyorum.Her sayfanın sonunda paraf var. Sayfalardan herhangi birini yazdırmak istediğimde, örneğin yazdırmak istediğimiz (sayfa1) olsun, (1 paraflı ve 2 parafsız) olmak üzere aynı andan 3 adet yazdıracak. Bu 3 ve 4 ncü sayfalar içinde aynı olacak. İlgili butonlara gerekli kodları atamanız hususunda çok değerli katkılarınızı bekler, saygılar sunarım.
Genişletmek için tıkla ...
Merhaba
Yazdırma alanları üzerinden gitsek olurmu.
Parafsızlarda yazdırma alanı A1:J47
Paraflılarda A1:J50 olsa olurmu?
Yada A1:J50 olsun paraflar silinerek parafsız çıktı alınsın?
 
Merhaba
Sayfa1 Yazdır için deneyin
Kod: 
Private Sub CommandButton1_Click()
'Parafsız
Sheets("Sayfa1").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$46"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
' Paraflı
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub
 
Black Lord' Alıntı:
Merhaba
Sayfa1 Yazdır için deneyin
Kod: 
Private Sub CommandButton1_Click()
'Parafsız
Sheets("Sayfa1").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$46"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    
' Paraflı
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
    ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub
Genişletmek için tıkla ...

Sayın Black Lord;
Tam istediğim buydu. Size çok teşekkür ederim. Daha çok acemiyim. Bir çok kez imdadıma yetiştiniz. Üzerinde çalıştığım belgeyi bitirmek üzereyim. Ancak bu belgede sizin çok büyük emeğiniz oldu. Ayrıca diğer katkı yapan arkadaşlarada çok teşekkür ederim.
Sayın Black Lord;
Birde ilk cevabınızda bahsetiğiniz gibi parafların silinerek yazılması kodlarınıda verirseniz buda çok işimize yarayacak. Bizlere sağladığınız çok değerli katkılarınızdan dolayı tekrar teşekkür eder, saygılar sunarım.
 
özdil' Alıntı:
Sayın Black Lord;
Tam istediğim buydu. Size çok teşekkür ederim. Daha çok acemiyim. Bir çok kez imdadıma yetiştiniz. Üzerinde çalıştığım belgeyi bitirmek üzereyim. Ancak bu belgede sizin çok büyük emeğiniz oldu. Ayrıca diğer katkı yapan arkadaşlarada çok teşekkür ederim.
Sayın Black Lord;
Birde ilk cevabınızda bahsetiğiniz gibi parafların silinerek yazılması kodlarınıda verirseniz buda çok işimize yarayacak. Bizlere sağladığınız çok değerli katkılarınızdan dolayı tekrar teşekkür eder, saygılar sunarım.
Genişletmek için tıkla ...
Çalışmalarınıza katkı sağlalabiliyorsak ne mutlu.
Parafları silerek çıktı almanız için kod,
Ama ben olsan diğer kodu kullanırdım
Çünkü sildiğinde ufak değişiklik yapıp tekrar çıktı almak isterseniz parafları yeniden girmeniz gerekir.
Kod: 
Private Sub CommandButton1_Click()
'Paraflı
Sheets("Sayfa1").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
'Parafsız
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
[a48] = ""
[a49] = ""
[a50] = ""
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub
 
Black Lord' Alıntı:
Çalışmalarınıza katkı sağlalabiliyorsak ne mutlu.
Parafları silerek çıktı almanız için kod,
Ama ben olsan diğer kodu kullanırdım
Çünkü sildiğinde ufak değişiklik yapıp tekrar çıktı almak isterseniz parafları yeniden girmeniz gerekir.
Kod: 
Private Sub CommandButton1_Click()
'Paraflı
Sheets("Sayfa1").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
'Parafsız
ActiveSheet.PageSetup.PrintArea = "$A$1:$J$50"
[a48] = ""
[a49] = ""
[a50] = ""
ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub
Genişletmek için tıkla ...

Uyarınızı dikkate alacağım.Çok teşekkür ederim.
 
özdil' Alıntı:
Uyarınızı dikkate alacağım.Çok teşekkür ederim.
Genişletmek için tıkla ...
Diğerlerine uyarlama yapnızda sıkıntı olurda yazabilirsiniz.
Hücreler farklı çünkü.
Kolay gelsin
İyi çalışmalar
 
Black Lord' Alıntı:
Diğerlerine uyarlama yapnızda sıkıntı olurda yazabilirsiniz.
Hücreler farklı çünkü.
Kolay gelsin
İyi çalışmalar
Genişletmek için tıkla ...

Sayın Black Lord;
Diğer sayfalara uyarlamayı yaptım teşekkür ederim. Ancak hiç beklemediğim başka bir sorunla karşılaştım. Userformun her açılmasında sayfalardaki bazı değerlerin temizlenerek açılması için, Sheets("Sayfa1").Range("F7").Value = "" şeklinde temizleme kodları var ve bunlar sorunsuz çalışıyor. Sorun ise userform üzerine eklediğim sayfa önizleme (UserForm1.Hide) makrolarıyla ilgili. Şöyleki; belgenin gerekli alanlarını doldurup önizleme düğmesine tıklayınca veriler siliniyor. Çünkü önizleme için sayfaya yönlendirme yapılırken temizleme kodları devreye girip hücreleri temizliyor. Eğer önizleme kodlarını kaldırırsam yaptığım çalışmanın bir anlamkı olmayacak. Temizleme kodlarını kaldırsam bu kezde bir önceki çalışmanın kayıtları sayfada kalacak. Örnek olarak bir önceki paraflar 3 kişiden oluşmakta ama sonradan iki kişiye inebilmektedir.Bu yüzden userform açılırken temizleme yapılması belgenin hazırlanması için hatasız sonuç verecek. Temizleme butonu eklemeyi düşündüm.Bu kezde userform açılırken ilk önce butonla temizleme yapmak gerekecek bu da unutulduğu zaman yine bir önceki kayıtlar kalmış olacak. Sizleri çok yorduğumun farkındayım ancak bu konuda yardımlarınıza yine ihtiyacım var. Saygılarımla...
 
Merhaba
Bahsettiğiniz dosyayı yükleme şansınız varmı.?
 
Black Lord' Alıntı:
Merhaba
Bahsettiğiniz dosyayı yükleme şansınız varmı.?
Genişletmek için tıkla ...

Sayın Black Lord;
Dosyayı ekledim ancak çok acemice düzenlendiği için sizi uğraştırabilir. Şayet bakmaya zamanınız olmazsa yine teşekkür ederim. Çünkü bu aşamaya kadar çok değerli katkılarınız oldu.
 

Ekli dosyalar

özdil' Alıntı:
Sayın Black Lord;
Dosyayı ekledim ancak çok acemice düzenlendiği için sizi uğraştırabilir. Şayet bakmaya zamanınız olmazsa yine teşekkür ederim. Çünkü bu aşamaya kadar çok değerli katkılarınız oldu.
Genişletmek için tıkla ...
Sorun tüm önizlemerde mi?
 
Sayın Özdil
Ya yardan ya serden geçmeniz gerekiyor
Userform_Activate kodlarınızda temizleme komtu vermişsiniz.
Private Sub CommandButton7_Click()
Me.Hide
Sheets("Sayfa1").PrintPreview
Me.Show
End Sub
Baskı önizlemede form kapanıyor ve baskı önizlemeden çıkıldığında tekrar form açılıyor
tekrar açılırken form Activateoluduğunda vediğiniz temizleme komutları çalışıyor.
Bunun yerine altarnatif;
Baskı önizleme komutu verdiğinizde sayfa temizlemebilir
 
Sayfa1 İçin yani Onay Formu Önizleme için bu kodları deneyin
isteğiniz gerçekleşirşe Private Sub Userform_Activate() altından kodları siliniz.

Kod: 
Private Sub CommandButton7_Click()
Me.Hide
Sheets("Sayfa1").Range("F7").Value = ""
Sheets("Sayfa1").Range("F8").Value = ""
Sheets("Sayfa1").Range("F10").Value = ""
Sheets("Sayfa1").Range("F11").Value = ""
Sheets("Sayfa1").Range("F14").Value = ""
Sheets("Sayfa1").Range("F15").Value = ""
Sheets("Sayfa1").Range("A48").Value = ""
Sheets("Sayfa1").Range("A49").Value = ""
Sheets("Sayfa1").Range("A50").Value = ""
Sheets("Sayfa1").Range("A20").Value = ""
Sheets("Sayfa1").Range("A21").Value = ""
Sheets("Sayfa1").Range("D20").Value = ""
Sheets("Sayfa1").Range("D21").Value = ""
Sheets("Sayfa1").Range("G20").Value = ""
Sheets("Sayfa1").Range("G21").Value = ""
Sheets("Sayfa1").Range("A36").Value = ""
Sheets("Sayfa1").PrintPreview
Me.Show
End Sub
 
Black Lord' Alıntı:
Sayın Özdil
Ya yardan ya serden geçmeniz gerekiyor
Userform_Activate kodlarınızda temizleme komtu vermişsiniz.
Private Sub CommandButton7_Click()
Me.Hide
Sheets("Sayfa1").PrintPreview
Me.Show
End Sub
Baskı önizlemede form kapanıyor ve baskı önizlemeden çıkıldığında tekrar form açılıyor
tekrar açılırken form Activateoluduğunda vediğiniz temizleme komutları çalışıyor.
Bunun yerine altarnatif;
Baskı önizleme komutu verdiğinizde sayfa temizlemebilir
Genişletmek için tıkla ...

Eğer yanlış anlamadıysam temizleme kodları ya da baskı önizlemeden vazgeçmem gerekiyor.
 
özdil' Alıntı:
Eğer yanlış anlamadıysam temizleme kodları ya da baskı önizlemeden vazgeçmem gerekiyor.
Genişletmek için tıkla ...
Üstte verdiğim kod hata verdi
Harici sil komutu verebilirsiniz.
Yada kaydet butonuna sil konutu verir sonra kayıt ettirebilirsiniz.
 
Merhaba
Harici sil butonu en güzeli olacaktır kaydet botunundan bağımsız çalışanlar var. Paraflar mesala.
 
Son düzenleme:
Black Lord' Alıntı:
Üstte verdiğim kod hata verdi
Harici sil komutu verebilirsiniz.
Yada kaydet butonuna sil konutu verir sonra kayıt ettirebilirsiniz.
Genişletmek için tıkla ...

Sayın Black Lord;
Harici sil komutu vermek sanırım daha mantıklı. Sayfaya girildiğinde bu işem ilk önce yapılmalı. Şayet unutulurda temizleme işlemi yapılmazsa, örneğin ComboBox1'e işlem yapmak için tıklandığında (Temizleme İşlemi yaptınız mı) gibi bir uyarı eklenebilir mi?
 
özdil' Alıntı:
Sayın Black Lord;
Harici sil komutu vermek sanırım daha mantıklı. Sayfaya girildiğinde bu işem ilk önce yapılmalı. Şayet unutulurda temizleme işlemi yapılmazsa, örneğin ComboBox1'e işlem yapmak için tıklandığında (Temizleme İşlemi yaptınız mı) gibi bir uyarı eklenebilir mi?
Genişletmek için tıkla ...
En güzeli bencede harici olması.
Çünkü gözden kaçan birşey var. Siz parafları seçtiğiniz anda kayıt ediyor. Kaydet değinizde eğerki sil komutu kaydet butonunda olursa parafları silecektir.
 
Merhaba
Sonkez altarnatif üreteyim
Sayfa2 Form açma butonuna ekleyebilirsiniz.
Form üzerinden ssilerek deneyin
Kırmızı işaretli yer sizde olman.

Kod: 
Private Sub CommandButton1_Click()
Sheets("Sayfa1").Range("F7").Value = ""
Sheets("Sayfa1").Range("F8").Value = ""
Sheets("Sayfa1").Range("F10").Value = ""
Sheets("Sayfa1").Range("F11").Value = ""
Sheets("Sayfa1").Range("F14").Value = ""
Sheets("Sayfa1").Range("F15").Value = ""
Sheets("Sayfa1").Range("A48").Value = ""
Sheets("Sayfa1").Range("A49").Value = ""
Sheets("Sayfa1").Range("A50").Value = ""
Sheets("Sayfa1").Range("A20").Value = ""
Sheets("Sayfa1").Range("A21").Value = ""
Sheets("Sayfa1").Range("D20").Value = ""
Sheets("Sayfa1").Range("D21").Value = ""
Sheets("Sayfa1").Range("G20").Value = ""
Sheets("Sayfa1").Range("G21").Value = ""
[COLOR=Sienna]Sheets("Sayfa1").Range("a25").Value = ""[/COLOR]
Sheets("Sayfa1").Range("A36").Value = ""

Sheets("Sayfa5").Range("B38").Value = ""
Sheets("Sayfa5").Range("B39").Value = ""
Sheets("Sayfa5").Range("B42").Value = ""
Sheets("Sayfa5").Range("B43").Value = ""
Sheets("Sayfa5").Range("B44").Value = ""
Sheets("Sayfa5").Range("D8").Value = ""
Sheets("Sayfa5").Range("B38").Value = ""
Sheets("Sayfa5").Range("P38").Value = ""
Sheets("Sayfa5").Range("P39").Value = ""
Sheets("Sayfa5").Range("R13").Value = ""
Sheets("Sayfa5").Range("R14").Value = ""
Sheets("Sayfa5").Range("R15").Value = ""
Sheets("Sayfa5").Range("R16").Value = ""
Sheets("Sayfa5").Range("R17").Value = ""
Sheets("Sayfa5").Range("T13").Value = ""
Sheets("Sayfa5").Range("T14").Value = ""
Sheets("Sayfa5").Range("T15").Value = ""
Sheets("Sayfa5").Range("T16").Value = ""
Sheets("Sayfa5").Range("T17").Value = ""
Sheets("Sayfa5").Range("V4").Value = ""
Sheets("Sayfa5").Range("V5").Value = ""
Sheets("Sayfa5").Range("V6").Value = ""
Sheets("Sayfa5").Range("V7").Value = ""
Sheets("Sayfa5").Range("V8").Value = ""
Sheets("Sayfa5").Range("V13").Value = ""
Sheets("Sayfa5").Range("V14").Value = ""
Sheets("Sayfa5").Range("V15").Value = ""
Sheets("Sayfa5").Range("V16").Value = ""
Sheets("Sayfa5").Range("V24").Value = ""

Sheets("Sayfa7").Range("A19").Value = ""
Sheets("Sayfa7").Range("A34").Value = ""
Sheets("Sayfa7").Range("A35").Value = ""
Sheets("Sayfa7").Range("A36").Value = ""
Sheets("Sayfa7").Range("A21").Value = ""
Sheets("Sayfa7").Range("C30").Value = ""
Sheets("Sayfa7").Range("C31").Value = ""
Sheets("Sayfa7").Range("G4").Value = ""
Sheets("Sayfa7").Range("G8").Value = ""
Sheets("Sayfa7").Range("G9").Value = ""
Sheets("Sayfa7").Range("G11").Value = ""
Sheets("Sayfa7").Range("G12").Value = ""
Sheets("Sayfa7").Range("G13").Value = ""
Sheets("Sayfa7").Range("G14").Value = ""
Sheets("Sayfa7").Range("G15").Value = ""
Sheets("Sayfa7").Range("G16").Value = ""
Sheets("Sayfa7").Range("I30").Value = ""
Sheets("Sayfa7").Range("I31").Value = ""

MsgBox "Temizlik Tamam"

UserForm1.Show
End Sub
 
Black Lord' Alıntı:
Merhaba
Sonkez altarnatif üreteyim
Sayfa2 Form açma butonuna ekleyebilirsiniz.
Form üzerinden ssilerek deneyin
Kırmızı işaretli yer sizde olman.

Kod: 
Private Sub CommandButton1_Click()
Sheets("Sayfa1").Range("F7").Value = ""
Sheets("Sayfa1").Range("F8").Value = ""
Sheets("Sayfa1").Range("F10").Value = ""
Sheets("Sayfa1").Range("F11").Value = ""
Sheets("Sayfa1").Range("F14").Value = ""
Sheets("Sayfa1").Range("F15").Value = ""
Sheets("Sayfa1").Range("A48").Value = ""
Sheets("Sayfa1").Range("A49").Value = ""
Sheets("Sayfa1").Range("A50").Value = ""
Sheets("Sayfa1").Range("A20").Value = ""
Sheets("Sayfa1").Range("A21").Value = ""
Sheets("Sayfa1").Range("D20").Value = ""
Sheets("Sayfa1").Range("D21").Value = ""
Sheets("Sayfa1").Range("G20").Value = ""
Sheets("Sayfa1").Range("G21").Value = ""
[COLOR=Sienna]Sheets("Sayfa1").Range("a25").Value = ""[/COLOR]
Sheets("Sayfa1").Range("A36").Value = ""

Sheets("Sayfa5").Range("B38").Value = ""
Sheets("Sayfa5").Range("B39").Value = ""
Sheets("Sayfa5").Range("B42").Value = ""
Sheets("Sayfa5").Range("B43").Value = ""
Sheets("Sayfa5").Range("B44").Value = ""
Sheets("Sayfa5").Range("D8").Value = ""
Sheets("Sayfa5").Range("B38").Value = ""
Sheets("Sayfa5").Range("P38").Value = ""
Sheets("Sayfa5").Range("P39").Value = ""
Sheets("Sayfa5").Range("R13").Value = ""
Sheets("Sayfa5").Range("R14").Value = ""
Sheets("Sayfa5").Range("R15").Value = ""
Sheets("Sayfa5").Range("R16").Value = ""
Sheets("Sayfa5").Range("R17").Value = ""
Sheets("Sayfa5").Range("T13").Value = ""
Sheets("Sayfa5").Range("T14").Value = ""
Sheets("Sayfa5").Range("T15").Value = ""
Sheets("Sayfa5").Range("T16").Value = ""
Sheets("Sayfa5").Range("T17").Value = ""
Sheets("Sayfa5").Range("V4").Value = ""
Sheets("Sayfa5").Range("V5").Value = ""
Sheets("Sayfa5").Range("V6").Value = ""
Sheets("Sayfa5").Range("V7").Value = ""
Sheets("Sayfa5").Range("V8").Value = ""
Sheets("Sayfa5").Range("V13").Value = ""
Sheets("Sayfa5").Range("V14").Value = ""
Sheets("Sayfa5").Range("V15").Value = ""
Sheets("Sayfa5").Range("V16").Value = ""
Sheets("Sayfa5").Range("V24").Value = ""

Sheets("Sayfa7").Range("A19").Value = ""
Sheets("Sayfa7").Range("A34").Value = ""
Sheets("Sayfa7").Range("A35").Value = ""
Sheets("Sayfa7").Range("A36").Value = ""
Sheets("Sayfa7").Range("A21").Value = ""
Sheets("Sayfa7").Range("C30").Value = ""
Sheets("Sayfa7").Range("C31").Value = ""
Sheets("Sayfa7").Range("G4").Value = ""
Sheets("Sayfa7").Range("G8").Value = ""
Sheets("Sayfa7").Range("G9").Value = ""
Sheets("Sayfa7").Range("G11").Value = ""
Sheets("Sayfa7").Range("G12").Value = ""
Sheets("Sayfa7").Range("G13").Value = ""
Sheets("Sayfa7").Range("G14").Value = ""
Sheets("Sayfa7").Range("G15").Value = ""
Sheets("Sayfa7").Range("G16").Value = ""
Sheets("Sayfa7").Range("I30").Value = ""
Sheets("Sayfa7").Range("I31").Value = ""

MsgBox "Temizlik Tamam"

UserForm1.Show
End Sub
Genişletmek için tıkla ...

Sayın Black Lord;
Size ne kadar teşekkür etsem azdır. Verdiğiniz kodlar sorunsuz çalışınca ne yardan ne de serden geçmemiş olduk. Çok değerli zamanınızı aldım hakkınızı helal edin. Öğrenmeye çalıştığım bu ilk aşamalarda sabırla verdiğiniz katkılarınızı ömür boyu unutmam mümkün değil. Dileğim, hayatınızda gerçekleşmesini istediğiniz her ne varsa mutlulukla sonuçlansın. En derin sevgi ve saygılarımla..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst