İstenilen Sayfayı Yazdırmak

[xternet]

Ýstenilen Sayfayı Yazdırmak

Herkese merhaba

Benim excelde hazırladığım bir not programı var. Bu programın not girilen sayfaları renkli. Ayrıca yazdırma sayfalarıda düzenledim. Bu programı öğretmenler odasında kullanıyoruz. Yalnız bazı arkadaşlar dikkatsizlik sonucu renkli olan sayfalarda yazdırma komutu veriyorlar ve buda kartuş israfına yol açıyor.
İsteğim şu:
Benim tayin ettiğim sayfalarda yazdırma işlemi yapılamasın. Hatta yazdır kısayoluna direk tıklandığında kişiyi gerekli sayfaya yönlendirecek bir not gözüksün.
Evet arkadaşlar bu konuda bana yardımcı olursanız çok sevinirim.
Forum konularını biraz inceledim. Sanırım benim sorum buradaki bir çok arkadaşa basit kaçacak. Ben makrolar konusunda çok yetersizim. Bu forumlar sayesinde birşeyler öğrenmeye çalışıcam.
Herkese iyi çalışmalar.
Yavuz koç.

Edit xxrt:"Acil yardım bekliyorum"Başlığı "İstenilen Sayfayı Yazdırmak"Olarak değiştirildi.

 

[Levent Menteşoğlu]

Ã?ncelikle menüde bulunan yazıcı kısayol butonunu kaldırın. Bunun yerine aşağıdaki gibi bir kodu bir butona ekleyin. Bu kodda yazdıracağınız sayfayı, kopya sayısını belirleyebilirsiniz.

[vb:1:6f5bb38273]Sub yazdır()
Sheets("Sayfa2").PrintOut Copies:=1
End Sub[/vb:1:6f5bb38273]

Not:Konu başlığınızda sorunuzu tanımlayıcı ifadeler kullanınız.

 

[met07]

Sayfa2 nin A1 ile H35 aralığını yazdırmam için koda nasıl bir ekleme yapmalıyım.

 

[cako]

Worksheets("Sayfa2").PageSetup.PrintArea = "A1:H35"

 

[danersin]

Yada

Sheets("Sayfa2").Range("a1:b30").PrintPreview

şeklinde yazdirma alani belirlemeden de olabilir.

 

[met07]

arkadaşlar teşekkür ederim ama;
sayın cako gönderdiğiniz kodlarda herhangi bir haraket olmadı.
ersin beyin kodlarında baskı ön izleme çıkıyor yazdırmıyor.
acaba yanlış bir yolmu izliyorum. :agla:

 

[cako]

Worksheets("Sayfa2").PageSetup.PrintArea = "A1:H35"

Ben de bir şey çıkacak demedim ki.
Yukarıda yazdığınız yazdırma komutunu da ekleyin bunun ardına. bakalım printerdan ne çıkacak. :hey:

Sub yazdır()
Sheets("Sayfa2").PageSetup.PrintArea = "A1:H35"
Sheets("Sayfa2").PrintOut Copies:=1
End Sub

 

[met07]

sayın cako benim ki bilgi eksikliğinden teşekkür ederim eline sağlık. :hey:

 

[cako]

Estağfirullah.
Diğer tarafta ortam ateşliyken, burası havayı değiştirsin diye latife yapıyorum.
Herkes keyfine baksın.

 

[yahya44]

Merhaba istediğim sayfayı CommandButton ile seçip yazdımak istiyorum
aşağıdaki kodu denedim hata veriyor. hatam nerede yardımcı olursanız sevinirim
Teşekkürler.


Private Sub CommandButton1_Click()
If UserForm2.CheckBox1.Clik Then
Worksheets(Sayfa2).PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
If UserForm2.CheckBox2.Clik Then

Worksheets(Sayfa1).PrintOut Copies:=2, Collate:=True
End If
End Sub

 

[Levent Menteşoğlu]

[vb:1:aa782a6646]If UserForm2.CheckBox1.Clik Then
Worksheets(Sayfa2).PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
If UserForm2.CheckBox2.Clik Then [/vb:1:aa782a6646]

Yukarıdaki yazım şeklini aşağıdaki gibi değiştirerek deneyin.

[vb:1:aa782a6646]If UserForm2.CheckBox1.value=true Then
Worksheets(Sayfa2).PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
If UserForm2.CheckBox2.Clik Then[/vb:1:aa782a6646]

 

[veyselemre]

şeklinde dene
[vb:1:5541f96e66]Private Sub CommandButton1_Click()
If CheckBox1 Then Sheets("Sayfa2").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
If CheckBox2 Then Sheets("Sayfa1").PrintOut Copies:=2, Collate:=True
End Sub
[/vb:1:5541f96e66]

 

[yahya44]

Sayın leventm, yardımınız için teşekkürler kodu aşağıdaki gibi değiştirdim


Private Sub CommandButton1_Click()
If UserForm2.CheckBox1.Value = True Then
Worksheets(Sayfa2).PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

If UserForm2.CheckBox2.Value Then
Worksheets(Sayfa1).PrintOut Copies:=2, Collate:=True
End If
End Sub


compile error:
block if without end if

şeklinde hata veriyor.

 

[yahya44]

Sayın veyselemre, teşekkür ederim.
sizin önerdiğiniz koddada sayfa 1 yazdırılıyor fakat sayfa 2 de kod sayfası açılıyor
kodun
........Sheets("Sayfa2").PrintOut From:=1, To:=1, Copies:=1, Collate:=True
kısmı sarı olarak görünüyor.

 

[Levent Menteşoğlu]

Her if komutundan sonra bir end if komutu ilave edip deneyin.

 

[yahya44]

Her if komutundan sonra bir end if komutu ilave edip deneyin.

Teşekkür ederim çalıştı