butonla yazıcıya göndermek için makro?

[attillaa]

Excel sayfa 1 deki bir butonla sayfa 2 deki A1:J41 aralığındaki bilgileri makro yazarak yazıcıya göndermek için nasıl bir makro kodu yazabiliriz?

 

[AS3434]

Sub Yazdır()
Sheets("Sayfa2").Select
ActiveSheet.PageSetup.PrintArea = "$a$3:$J$41"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sayfa1").Select
End Sub

Kodları Sayfa 1 de butona bağlayın.

 

[cdroy1]

merhaba.
bir buton oluşturup bu kodu butonunuzun içine yazpıştrın



Sheets("Sayfa2").Select
Range("A1:J41").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sayfa1").Select
Range("A1").Select


kolay gelsin

 

[emrexcel123]

buyrun

arkadaşım şu kodu kullan

Sub yazdir()
Sheets("sayfaismi").Select
ActiveSheet.PageSetup.PrintArea = "$a$3:$J$41"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
.........

 

[Seyit Tiken]

Aşağıdaki kodu deneyiniz.

Sub Düğme1_Tıklat()
Sayfa2.[A1:J41].PrintOut
End Sub

 

[attillaa]

yazdır penceresi

ilginize teşekkür ederim. Yazdığınız kodu yazdım çalıştı. Ancak ben yazdır penceresinin karşıma gelmesini ve yazıcı seçimi ile kopya sayısını kendim vermek istiyorum bunun için ne yapabilirim.

 

[attillaa]

Arkadaşlar ilginize teşekkür ederim. Yazdığınız kodu yazdım çalıştı. Ancak ben yazdır penceresinin karşıma gelmesini ve yazıcı seçimi ile kopya sayısını kendim vermek istiyorum bunun için ne yapabilirim.

 

[abdi]

Application.Dialogs(xlDialogPrint).Show

 

[emrexcel123]

buyrun

bu kodu deneyiniz...
Sub yazdir()
On Error Resume Next
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[emrexcel123]

alternatif

ya da alternatif olarak şunları kullanabilirsin >>
sayfa yapısı
Sub yazdir()
Application.Dialogs(xlDialogPageSetup).Show
End Sub

yazdırma
Sub yazdir2()
Application.Dialogs(xlDialogPrint).Show
End Sub

yazıcı ayarları
Sub yazdir3()
Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

önizleme
Sub yazdir4()
Application.Dialogs(xlDialogPrintPreview).Show
End Sub

ii çalışmalar...

 

[attillaa]

Arkadaşlar ilginize teşekkür ederim. Emre Bey diğer detaylar içinde ayrıca teşekkür ederim.

 

[Sword1977]

Selamlar ben acemi bir exel kullanıcısıyım ne buton yapmasını biliyorum nede bu kodları girmesini exel 2007 kullanıyorum bu kodları makro yapılan yere kopyaladım sadece hata mesajları veriyor bana buton yapmasını ve bu butona basıncada istediğim sayfadaki seçtiğim alanı yazdırmasını öğretebilirmisiniz

 

[emrexcel123]

yeni başlayanlar

Selamlar ben acemi bir exel kullanıcısıyım ne buton yapmasını biliyorum nede bu kodları girmesini exel 2007 kullanıyorum bu kodları makro yapılan yere kopyaladım sadece hata mesajları veriyor bana buton yapmasını ve bu butona basıncada istediğim sayfadaki seçtiğim alanı yazdırmasını öğretebilirmisiniz

başta açık yüreklilikli olman gerçekten güzel.arkadaşım eğer excel'e yeni başladıysan direk bu konulara girmek yüzme bilmeden "Karadeniz" e dalmak gibi birşeydir sitemizin "Excel'e Yeni Başlayanlar" bölümünü incelemeni tavsiye ederim.

 

[antilimit]

arkadaşlar, komple sayfayı değilde. mesela bir form yaptım. o form yapılan kayıtları 2. sayfaya atıyor. formda doldurulan 5 kutu var. ben sadece ilk iki kutusunu yazdırmak istiyorum. barkod yazıcıdan.