yazdır komudu

[akin521]

acil sayfayı yazdır komudu lazım



Excel'e yeni başlayanlar bölümüne taşınmıştır_Zafer

 

[spilavci]

Sub Düğme1_Tıklat()
Application.ActivePrinter = "LPT1: üzerindeki ColorAge ColorQ "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"LPT1: üzerindeki ColorAge ColorQ ", Collate:=True
End Sub

printer in ismini değiştirmeniz gerekli.Kodu bir düğmeye atayın.

Selamlar.

 

[zafer]

Merhaba



Sub Yazdır()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

 

[spilavci]

Hoşgeldiniz demeyi unuttum kusura bakmayın.

 

[haydar]

Peki dikey yazdır, yatay yazdır gibi komutları, tepsi seçeneklerini makro ile nasıl yazacağız. Bana lazım da...