Yazdirma Alani

[essmaa]

arkadaşlar meraba excel sayfasında yazdırılacak alanı nasıl belirlerim örneğin


sütun a , b , c , d , e , f sütunu'nu secip

satır 1 den, 1822 satır arasını nasıl ayarlayıp yazdırabilirim ve bu excel sayfasına nasıl bir secim ekleyebilirim

ustalarım sizlere şimdiden tşk ederim örnek ektedir

 

[Seyit Tiken]

Bu şekilde işinizi görür mü?

Sub yazdır()
[a1:f1822].PrintOut
End Sub

 

[essmaa]

Bu şekilde işinizi görür mü?

Sub yazdır()
[a1:f1822].PrintOut
End Sub

arkadaşım çok tşk ederim senden ricam kodu excel sayfasına ekledikten sonra orda secim yapmak için bir bölüm var ondada yardımcı olurmusun örnekteki sayfada var ama yapamadım
diyelimki şu sütunla şu satır arasını yazdır diye

 

[Orion1]

Dosyanız hazır.

Sub yazdir()
On Error GoTo son
adr = Range("P2").Value & Range("P5").Value & ":" & Range("Q2").Value & Range("Q5").Value
If MsgBox(adr & " Adlı alanı yazdırmak istiyormusunuz?", vbYesNo, "YAZDIR") = vbNo Then Exit Sub
Range(adr).PrintOut
son:
End Sub

 

[Seyit Tiken]

Aşağıdaki kodu deneyebilirsiniz.

Sub Düğme3_Tıklat()
On Error Resume Next
s = Application.InputBox("Yazdırılacak Alanı Belirleyin, A1:F100 gibi")
Range(s).PrintOut
End Sub