Yazıcı Seçmek?

[udentr2002]

Merhaba arkadaşlar,

Bir butona tıkladığımda bilgisayara yüklü yazıcıların gelmesi ve o listeden yazıcıyı seçip Sayfa1 adlı sheetin 1.2. ve 3. sayfalarını yazdırmak istiyorum bunun için nasıl bir kod yazabilirim.

Bunla ilgili konuları inceledim ama uyarlayamadım kendi dosyama

Yardımcı olursanız çok sevinirim.

İYİ ÇALIŞMALAR.

 

[O.DAĞLI]

Merhaba;
Aşağıda ki kodları kullanarak yapabilirsiniz.

Kod:
Sub YAZICI_PENCERESİ()
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[udentr2002]

İlgilendiğin için teşekkürler.

Sayfayı select yapmadan Sayfa1 adlı sayfayanın 1. 2. vede 3. sayfalarını yazdırması lazım.

Not: Yazdırılmak istenen Sayfa gizli sayfadır.

 

[chngrcn]

sub YAZDIR ()
Sheets("sayfa1").PrintOut Copies:=1, Collate:=True
Sheets("sayfa2").PrintOut Copies:=1, Collate:=True
Sheets("sayfa3").PrintOut Copies:=1, Collate:=True


   MsgBox "YAZDIRILDI.", vbInformation

end sub

 

[udentr2002]

Arkadaşım,
Ben sayfa1 adlı sheetin 1'den 3. sayfasına kadar yazmasını isitiyorum demek istedim. Sayfa1 sayfa2 ve sayfa3 ü değil.

yinede ilgilendiğin çin teşekkürler.

 

[Mahir64]

Arkadaşım,
Ben sayfa1 adlı sheetin 1'den 3. sayfasına kadar yazmasını isitiyorum demek istedim. Sayfa1 sayfa2 ve sayfa3 ü değil.

yinede ilgilendiğin çin teşekkürler.

Merhaba
Sayfa1 gizli demiştiniz
Sayfa1 de kaç yazdırma sayfası
1,2,3 yazdırma alanı olarak belirlimi?

 

[udentr2002]

Evet sayfa1 gizli bir sayfa,

ve yazdırma alanı olarak belirlemedim. 1. sayfadan 3. sayfaya kadar yazdırmasını isitiyorum. Teşekkürler şimdiden

 

[mancubus]

dener misiniz?

yazıcı seçme işlemini kayıt makrosu ile yaparak oluşan kodu kırmızı font 1. satırın yerine kopyalayınız.

aşağıdaki makroyu kullandığınızda doğrudan sayfa1'in 1-3. sayfalarını 1 nüsha olarak 1. satıradaki yazıcıya yazdıracaktır.

Sub yazdir()

[COLOR="Red"]Application.ActivePrinter = "\\XXXPRT\PRTXXX99 on Ne01:"[/COLOR]
Sheets("Sayfa1").Visible = xlSheetVisible
Sheets("Sayfa1").PrintOut copies:=1, from:=1, to:=3
Sheets("Sayfa1").Visible = xlSheetHidden

End Sub

 

[udentr2002]

Teşekkürler

 

[mancubus]

rica ederim.

sık kullanacaksanız arada bir (örneğin yeni bir kayıt makrosu ile) printer port'unu kontrol edin.

sistemdeki printer sayısına bağlı olarak NeXX: şeklindeki port windows tarafından belirleniyor.