Yazdırma Makrosu

[torter]

Bİr kaç sayfa uzunluğunda bir dosyam var ve ben gerektiğinde sonuncu sayfadan bir fazla çıktı almak istiyorum.

bunun için aşağıdaki kodu denedim. ancak düğmeye tıkladığımda yazdırma alanını değiştirip sadece belirtilen alanı yazdırma alanı olarak belirliyor. bu durumda dosyayı kaydetmeden çıkıp yeniden açmam gerekiyor.

yazdırma alanını değiştirmeden bu işi yapan bir kod var mı acaba



Private Sub CommandButton1_Click()
ActiveSheet.PageSetup.PrintArea = "$A$190:$I$251"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

 

[Korhan Ayhan]

Örnek bir dosya ile sorunuzu açıklarmısınız.

 

[mehmett]

Sn torter

Aşağıdaki kodu bir dener misiniz?

[vb:1:353264e444]Sub Özel_yazdır()
sayfa = InputBox("Yazdırmak istediğiniz sayfanın numarasını giriniz.")
If sayfa = "" Then
Exit Sub
Else
ActiveWindow.SelectedSheets.PrintOut From:=sayfa, To:=sayfa
End If
End Sub[/vb:1:353264e444]

 

[torter]

istenilen sayfayı yazdırma makrosu

Sn Mehmett kod için tşk ederim

tam istedğim gibi

verdiğiniz kod yazdırılmak istenen sayfanın numarasını soruyordu.
ben kodu aşağıdaki biçimde değiştirip yazdırılmak istenen sayfanın numarasını sabitledim


Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2
End Sub


mesaj ekine bir örneğini ekledim

 

[ht28829]

Merhaba Arkadaşlar

Bu kodları nereye ve nasıl yazacağız
teşekkürler

 

[mehmett]

Alt+F11 tuşlayın, gelen pencereye bu kodları yapıştırın.

Sayfanızda bir düğme çizin ve az önce yazdığınız makroyu düğmeye atayın.