2 sayfa ve seçili hücreye makro uygulama

[mustafa77yilmaz]

Sekme 1 deki yazdır-1 butonuna tıkladığımızda
sekme 1, sekme 2 ve sekme 3 deki sayfaları 2'şer adet yazdıracak,

sekme 1 deki yazdır-2 butonuna tıkladığımızda
sekme 1, sekme 2 ve sekme 3 deki a1:g18 hücrelerini 2'şer adet yazdıracak

makro yu nasıl uygularız.

 

[erkanfun]

Sekme 1 deki yazdır-1 butonuna tıkladığımızda
sekme 2 ve sekme 3 deki sayfaları yazdıracak,

sekme 1 deki yazdır-2 butonuna tıkladığımızda
sekme 2 ve sekme 3 deki a1:g18 hücrelerini yazdıracak

makro yu nasıl uygularız.

Örnek dosya??

 

[vardar07]

Merhaba,
İşine yararmı bilmem incelermisin.

 

[mustafa77yilmaz]

2'şer sayfa yazdırmıyor.

 

[mustafa77yilmaz]

yardım edecek yokmu arkadaşlar..

 

[vardar07]

Merhaba, Arkadaşım yazdırma 2 sefer yazdırma için ayarlı aşağıdaki kodda kırmızı ile belirtilen değer yazdırma sayısı.Değiştirerek deneyebilirsin. Bende yazıcı olmadığı için deneyemedim.

ExecuteExcel4Macro "PRINT(1,,,[COLOR="Red"][B]1[/B][/COLOR],,,,,,,,2,,,TRUE,,FALSE)

 

[mustafa77yilmaz]

yine olmadı

 

[vardar07]

yine olmadı

Arkadaşım kusura bakma ben kodları KTF olarak yaptım. Başka bir yolu varsa eminim diğer arkadaşlar yardımcı olacaktır.

 

[mustafa77yilmaz]

Yardım bekliyorum

 

[YUSUF44]

3 sekme için aşağıdaki makroları kullanabilirsiniz:

Sub üçsekmeyazdır()
'
' üçsekmeyazdır Makro
'

'
    Sheets(Array("SEKME 1", "SEKME 2", "SEKME 3")).Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=2
End Sub

Yazdırma alanı belirleyip yazdırmak için aşağıdaki makroyu kullanabilirsiniz:

Sub seçmeliyazdır()
'
' seçmeliyazdır Makro
'

'
    Range("A1").Select
    Sheets(Array("SEKME 1", "SEKME 2", "SEKME 3")).Select
    Sheets("SEKME 1").Activate
    Range("A1:G18").Select
    Sheets("SEKME 1").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$18"
    Sheets("SEKME 2").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$18"
    Sheets("SEKME 3").Select
    ActiveSheet.PageSetup.PrintArea = "$A$1:$G$18"
    Sheets("SEKME 1").Select
    Sheets(Array("SEKME 1", "SEKME 2", "SEKME 3")).Select
    Sheets("SEKME 1").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=2
    Sheets("SEKME 1").Select
    Range("E11").Select
    Sheets("SEKME 2").Select
    Range("C22").Select
    Sheets("SEKME 3").Select
    Range("D23").Select
    ActiveSheet.PageSetup.PrintArea = ""
    Sheets("SEKME 2").Select
    ActiveSheet.PageSetup.PrintArea = ""
    Sheets("SEKME 1").Select
    ActiveSheet.PageSetup.PrintArea = ""
End Sub

Her iki makroyu da makro kaydet yoluyla oluşturdum.