Prİnt Makrosu

Katılım
27 Aralık 2005
Mesajlar
213
Excel Vers. ve Dili
OFFICE-2003 Türkçe
Sayfa 1 de gerekli bilgileri girdikten sonra oluşturduğum bir butona basarak Sayfa 2' yi print etmek istiyorum nasıl bir makro yazmak gerekiyor
yardımcı olursanız sevinirim
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu kullanabilirsiniz.

Kod:
sheets("sayfa2").printout
 
Katılım
8 Eylül 2005
Mesajlar
476
Excel Vers. ve Dili
Excel 2003 - Türkçe
Aşağıdaki kodu kullanabilirsiniz.

Kod:
sheets("sayfa2").printout
Makro olan bir sayfaya son satıra bu kodu ekledim. Print alacağıma "dosyaadı.mdi" diye farklı kaydet penceresi açılıyor. Makrolu sayfaya print komutu nasıl yazırabilirim?

Teşekkürler...
 
Katılım
15 Ocak 2007
Mesajlar
791
Excel Vers. ve Dili
2003 excel visual basic
şu kodu ekleyip dener misiniz...
Kod:
ActiveWindow.SelectedSheets.PrintOut
ayrıca pcnize veya ağa bağlı bir yazıcı olduğundan emin olun veya aktif yazıcıyı kontrol edin bu durum sadece pcye bağlı veya ağdan bağlanılan bir yazıcı olmadığında MS Office'in belgeyi Document Imaging biçimiyle saklaması demektir ii akşamlar...
 
Katılım
8 Eylül 2005
Mesajlar
476
Excel Vers. ve Dili
Excel 2003 - Türkçe
Yine aynı "dosyaadı.mdi" diye farklı kaydet penceresi açılıyor."
Makro da debug diyor.

Teşekkürler..
 
Katılım
15 Haziran 2006
Mesajlar
3,704
Excel Vers. ve Dili
Excel 2003, 2007, 2010 (TR)
Printout satırını yazdığınız, kodun tamamını buraya kopyalar mısınız?
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Sayın leventm 'in yazdığı kodu şöyle değiştirin,

Kod:
 [LEFT]sheets("sayfa2").printprewiew[/LEFT]
Bu önizleme yapmaktır. Eğer Önizleme halinde açılıyorsa, Sayın emrexcel123'ün dediği gibi yazıcı bağlantılarınızda sorun var demektir.​
 
Katılım
8 Eylül 2005
Mesajlar
476
Excel Vers. ve Dili
Excel 2003 - Türkçe
Sayın AS3434,

En son sizin söylediğiniz kodu yazdım. Dosya ekte..

Saygılar..
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Kod:
s1.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$28"
ActiveWindow.SelectedSheets.[B]PrintPreview[/B]
Bu haliyle bir deneyin. Yazdırmak için
.printprewiew
kısmını
.printout
yapın.
 
Katılım
8 Eylül 2005
Mesajlar
476
Excel Vers. ve Dili
Excel 2003 - Türkçe
Kod:
s1.Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$28"
ActiveWindow.SelectedSheets.[B]PrintPreview[/B]
Bu haliyle bir deneyin. Yazdırmak için
.printprewiew
kısmını
.printout
yapın.

Sonsuz teşekkürler.. Yine Hızır gibi yetiştiniz , Allah razı olsun.
 
Katılım
6 Haziran 2007
Mesajlar
3
Excel Vers. ve Dili
turkish 2003
selam benim benzer bir sorum olacak
mesela sayfa1 e makro ekleyip sayfa2 den 2 çıktı sayfa3 ten 4 adet çıktı ve sayfa4 ten 3 çıktı almak istiyorum makro nasıl olacak yardımcı olursanız sevinirim
 
Üst