yazdırma seçenekleri

[Hacı Bayram ÖZKAN]

arkadaşlar ekli dosyada yazdırmak isteğim işlemi anlattım, bana yardımcı olursanız sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Merhaba.

Ekteki örneği inceleyiniz.

Sub KOD_BİR()
Sheets("GİRİŞ").Range("A17") = "1"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "2"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "3"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "4"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "5"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "6"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "7"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "8"
Call Makro1

Sheets("GİRİŞ").Range("A17") = "9"
Call Makro1
End Sub


Sub Makro1()
    Sheets("Sayfa1").PrintOut From:=1, To:=1, Copies:=1
End Sub

. . .

 

[Hacı Bayram ÖZKAN]

hepsini yazdır secenegi: büroların isimleri ayrı ayrı kagıtlara yazdıracak. diğer kısım olmuş eline sağlık

 

[Emir Hüseyin Çoban]

hepsini yazdır secenegi: büroların isimleri ayrı ayrı kagıtlara yazdıracak. diğer kısım olmuş eline sağlık

. . .

Merhaba.
Ben yazdırma kodlarınızı incelememiştim. Her seçenek için bir tane oluşturmuşsunuzdur diye düşünmüştüm.

Dosyanızın revize edilmiş halini bir önceki mesajımdan indirerek deneyiniz.

. . .

 

[Hacı Bayram ÖZKAN]

abi eline sağlık olmuş teşekkürler.