yazdırma makrosunda yardım

[fatih34]

tüm arkadaşlara iyi akşamlar iyi çalışmalar formda bulduğum yazdırma makrosunu üzerinde çalıştığım programa uygulamaya çalıştım.
yalnız çalışma sayfa1 de 2 sayfadan oluşmaktadır.1.sayfayı alabiliyorum 2.sayfayı alamıyorum.Uğraştım ama sadece iki sayfanın yarısını almayı becere bildim tam olarak şablona gelmedi.bu konuda bir yol gösterirseniz sevinirim.

 

[Mahir64]

mrb

eKİ iNCELEYİN

 

[Emir Hüseyin Çoban]

Merhaba,

Alternatif olarak ekliyorum.
Kodları boş bir module ekleyin.

Sub sayfa1_yazdır()
son = Sheets("sayfa1").Cells(Rows.Count, "ak").End(xlUp).Row
Sheets("sayfa1").Range("b1:ak" & son).PrintOut Copies:=1, preview:=True
End Sub

 

[fatih34]

ilginize teşekkür ederim arkadaşlar ancak bunu useform3 deki yazdır comboboxsla yapmak mümkün değilmi

 

[fatih34]

merhabalar arkadaşlar göndermiş olduğunuz örnekleri inceledim ancak bunu useform3 deki yazdır butonu ile yapmak mümkün değilmi?

 

[Emir Hüseyin Çoban]

Dosyanızda Userform3 ü çalıştırırken hata veriyor.

Yazdır butonuna bu kodları uygulatın.

Private Sub CommandButton1_Click()
son = Sheets("sayfa1").Cells(Rows.Count, "ak").End(xlUp).Row
Sheets("sayfa1").Range("b1:ak" & son).PrintOut Copies:=1, preview:=False
End Sub

 

[fatih34]

sayın hüseyin hocam ilginize teşekkür ederim.formülü uyguladım ancak sayfa 1 deki puantaj1 sayılı cetvel gözüküyor formda ben hem puantaj1 hemde puanta2 verilern useform3 deki yazdır butonuna bastığımda gözükmesini ve bu şekilde çıktı almak istiyorum mümkünse dosyayı ekledim

 

[fatih34]

yazdır makrosunda yardım

merhabalar soruma üstadlar örnek göndererek yardımcı olmaya çalıştılar ancak benim sorum useform3 deki yazdır butonuna tıkladığım zaman sayfa1 deki puantaj1 çıkıyor ve yazdırılıyor aynı sayfada bulunan puantaj2 gözükmüyor
hem puantaj1 hemde puantaj2 yi aynı butonla almak mümkün değilimi useform üzerinden

 

[ynmcan]

Syn. Fatih34;
Önce iki ayrı yazdırma alanı belirleyip aşağıdaki kodu kullanın.
Örnek dosyayı inceleyin.

Sheets("sayfa1").Activate
ActiveSheet.PageSetup.PrintArea = "Yazdırma_Alanı1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

ActiveSheet.PageSetup.PrintArea = "Yazdırma_Alanı2"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Private Sub UserForm_initialize()
Range[COLOR="Red"]("A1:AK70").[/COLOR]CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
Set grafik = ActiveSheet.ChartObjects.Add(, , genislik, yukseklik)
grafik.Chart.Paste
grafik.Chart.Export ThisWorkbook.Path & "\xxresimxx.jpg"
Frame1.Picture = LoadPicture(ThisWorkbook.Path & "\xxresimxx.jpg")
grafik.Delete
Kill ThisWorkbook.Path & "\xxresimxx.jpg"
End Sub

 

[fatih34]

hocam kolay gelsin ilginize emeğinize sağlık örneğinizi inceledim çıktıyı tam olarak veriyor ancak örnek useform3 deki yazdır makrosunda puantaj1 10 satırdan itibaren gözüküyor ,puantaj2 de ilk 16 satırı gözüküp diğer satırlar gözükmüyor.her iki puantajı useformda tam olarak görmek mümkün değilmi?

 

[fatih34]

halletim sayın hocam teşekkür ederim ilginize emeğinize