yazdırma butonu veya ekle butonu

[nevista]

sayfa 1 deki satırları veya seçilen alanı sayfa 2 deki gibi bir formata dönüştürerek yazdırmak istiyorum.
veya 2. sayfadan girdiğim verileri bir ekle butonu sayesinde 1. sayfadaki gibi bir formatla sıradaki alt satıra eklemesini istiyorum.

her satıra yazdır butonu ekleyerek 2. sayfa formatın da yazdırabilir miyiz ?

yardımlarınız için şimdiden teşekkür ederim.

örnek dosyayı ekledim !

 

[antonio]

Sayfa1.PageSetup.PrintArea = Sayfa2.PageSetup.PrintArea
Sayfa1.PageSetup.Orientation = Sayfa2.PageSetup.Orientation

 

[nevista]

kodları yazdım fakat çalıştıramadım. örnek dosyayı ekledim yardımcı olur musunuz?

 

[antonio]

kodları yazdım fakat çalıştıramadım. örnek dosyayı ekledim yardımcı olur musunuz?

Ekte görüntülediğim güvenlik uyarısı yüzünden dosyanızı açmadım.
Kodları çalıştırmaya gelince; Alt + F11 i tuşlayarak, yada sayfa sekmesine sağ tıklayarak "Kod Görüntüle" ile Kod penceresini açıyoruz. Açılan Pencereye aşağıdaki kodları aynen yapıştırın.

Sub baski_on_izleme_ayarlama()
Sayfa1.PageSetup.PrintArea = Sayfa2.PageSetup.PrintArea
Sayfa1.PageSetup.Orientation = Sayfa2.PageSetup.Orientation
End Sub

İmleciniz Sub ile End Sub arasındaki satırların bir yerinde ise F5 yaparak kodları çalıştırabilirsiniz, veya bir düğme oluşturup sağ tık >> Makro Ata >> Sub ibaresinin devamında belirtilen makro adını seçerek düğmeye atama yapabilirsiniz.
Kolay gelsin

 

[cems]

İkinci kez birebir aynı soru açma nedeni ile belki farkedilmemiştir...

http://www.excel.web.tr/f48/yazdyr-veya-ekle-butonu-t167218.html