Yazdırıken görünmeyen yazılar

[hsnyvz]

ekranda görebileceğim,yazarken görünmeyen kılavuz yazılara ihtiyacım var..

 

[Vedat Özer]

Selamlar,

Ekranda görüp yazıcıdan çıktıgı zaman görmek istemiyosanız seçim yapıp yazdırırken sadece seçimim işaretlersiniz seçtiğiniz alan yazdırılır.

Ben bunu biliyorum...

 

[Orion1]

Hücrelere açıklama ekleyebilirsiniz.
Sağ tıklayıp açıklama ele deyip açıklamınızı ekleyiniz.

 

[hsnyvz]

FATURA şablonu hazırladım ,bu yazılar faturada mevcut olduğu için bana sadece viri girerken kılavuzluk etmesi yeterli.yazdırırken görünmemeleri için bir yöntem varmı acaba?
teşekkürler..

Ekli dosyayı görüntüle RESİMLİ2.xls

 

[Orion1]

Dosyanız ektedir.

Sub yazdir_59()
Range("D6,A8,A10,B10:E10").Font.Color = Range("D6,A8,A10,B10:E10").Interior.Color
ActiveSheet.PrintPreview
Range("D6,A8,A10,B10:E10").Font.Color = vbBlack

End Sub

 

[hsnyvz]

ALLAH razı olsun sn Evren,

ancak yazıcı seçmem gerekli oldugu için dosya altından yazdır tusuna basıyorum.
bu şekilde yazıcı seçemiyorum..
yine de çok teşekkürler..

 

[Orion1]

ALLAH razı olsun sn Evren,

ancak yazıcı seçmem gerekli oldugu için dosya altından yazdır tusuna basıyorum.
bu şekilde yazıcı seçemiyorum..
yine de çok teşekkürler..

O kolay buyurun dosyanızı.

Sub yazdir_59()
Range("D6,A8,A10,B10:E10").Font.Color = Range("D6,A8,A10,B10:E10").Interior.Color
Application.Dialogs(xlDialogPrint).Show
Range("D6,A8,A10,B10:E10").Font.Color = vbBlack

End Sub

 

[hsnyvz]

SN EVREN,
sayfayı korumaya aldığımızda kodlar çalışmıyor,hata alıyorum.
Bunun çözümü mevcutmudur?
Bir de bu çalışmanızı eklenti olarak çalıştırabilme imkanımız varmı?

Teşekkürler..

 

[hsnyvz]

UP........

 

[hsnyvz]

........................................

 

[Orion1]

SN EVREN,
sayfayı korumaya aldığımızda kodlar çalışmıyor,hata alıyorum.
Bunun çözümü mevcutmudur?
Bir de bu çalışmanızı eklenti olarak çalıştırabilme imkanımız varmı?

Teşekkürler..

İlgili kodu aşağıdaki ile değiştiriniz.

Sub yazdir_59()
[B][COLOR="Red"]ActiveSheet.Unprotect[/COLOR][/B]
Range("D6,A8,A10,B10:E10").Font.Color = Range("D6,A8,A10,B10:E10").Interior.Color
Application.Dialogs(xlDialogPrint).Show
Range("D6,A8,A10,B10:E10").Font.Color = vbBlack
[B][COLOR="red"]ActiveSheet.Protect[/COLOR][/B]
End Sub

 

[hsnyvz]

TESEKKÜRLER sn Evren..