sadece 1. sayfayı yazdırma makro ile

[bilgee38]

excelde, makro ile sadece o çalışma kitabındaki sayfa1'in 1. sayfasını yazdırmak istiyorum. bu nasıl yapılır acaba? nasıl bir kod yazılmalı? daha sonrada bunu butona bağlıycam

 

[Ongun]

Merhaba, aşağıdaki kod işinizi görür. Kolay gelsin.

Sayfa1.PrintOut , 1

 

[Seyit Tiken]

Alternatif :

Sub Makro1()
Sheets("Sayfa1").PrintOut , 1
End Sub

 

[halilyor]

İyi günler arkadaşlar. Aşağıdaki makro'da işinize yarayabilir.

Application.ScreenUpdating = False
Sheets("kar").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$29"
Application.ActivePrinter = "LPT1: üzerindeki FIS "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"LPT1: üzerindeki FIS ", Collate:=True
Sheets("ir").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$D$29"
Application.ActivePrinter = "Ne00: üzerindeki IRSALIYE "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ne00: üzerindeki IRSALIYE ", Collate:=True
Sheets("YAZDIR").Select
MsgBox "Lütfen bekleyin bir adet kartela ve irsaliye yazılıyor"
Application.ScreenUpdating = True

 

[ileri]

olmuyor bende öle bi sorun var yazıdr deidkten sonra soru sormasını sitiyorum sayfa yazdırılsınmı ayzdırılmasınmı

 

[Orion1]

olmuyor bende öle bi sorun var yazıdr deidkten sonra soru sormasını sitiyorum sayfa yazdırılsınmı ayzdırılmasınmı

Ekli dosyayı inceleyiniz.

Sub yazdir()
If MsgBox("Sayfa1'i Yazdırmak istiyormusunuz?", vbYesNo, "E V R E N") = vbNo Then Exit Sub
Sheets("Sayfa1").PageSetup.PrintArea = "Sayfa1!A1:F25"
Sheets("Sayfa1").PrintOut , 1
Sheets("Sayfa1").PageSetup.PrintArea = ""
End Sub

 

[teonet]

yazıcı seçme

Alternatif :

Sub Makro1()
Sheets("Sayfa1").PrintOut , 1
End Sub

Arkadaşlar yukarıdaki bağlantıya yazıcı seçme menüsü nasıl ekleyebiliriz.

 

[teonet]

Konu hakkında bilgisi olan var mı?

İyi çalışmalar.

 

[ommerk]

Sub YAZDIR()
'
' YAZDIR Macro
' Macro recorded 02/02/2012 by ÖMER KÜÇÜK
'
' Keyboard Shortcut: Ctrl+Shift+P
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Range("G25:H25").Select
End Sub

bu şekilde kullandığım bir makro var
benim kullandığım yazıcıda a5 kağıt daha fazla alındığı için yazıcı ayarlarındaki effect ayarında "print document on" kısmı şeçili a5b olarak.
Bu makroyu kaydederken o kısmı actual size seçeneğini işaretleyip yapmıştım fakat makroda yer almamış.
bu makroyu kullanarak yazıcıya belirtilen aralığı gönderdiğim zaman a4 olarak nasıl gönderebilirim.yani effect kısmında actual size'ı işaretleyerek.

 

[ABDURREZZAKYILDIZ]

iyi akşamlar
bu makroya yazıcı seçimini nasıl ekleyebiliriz.
iki yazıcı var otomatik seçme de olabilir manuel de

Şimdiden teşekkürler

Sub yazdir()
If MsgBox("Sayfa1'i Yazdırmak istiyormusunuz?", vbYesNo, "E V R E N") = vbNo Then Exit Sub
Sheets("Sayfa1").PageSetup.PrintArea = "Sayfa1!A1:F25"
Sheets("Sayfa1").PrintOut , 1
Sheets("Sayfa1").PageSetup.PrintArea = ""
End Sub