bazı hücrelerdeki yazıların yazıcıdan çıkmasını istemiyorum???

[comp_wolf]

iyi günler herkese,
formda da aramalar yaptım ama ben bulamadım sanırım.
Exel de tasarladığım makrolu bir programım var ben burada aktif yazdırma alanının tamamını istediğim yazıcıdan seçerek yazdırabiliyorum ama
yazdırma alanı
Range("B1:N69").Select
ben bu yazdırma alanının içinde C25:C62 hücrelerinde yazan yazıların yazıcıdan çıkarken görünmemesini istiyorum.
bu konuda bana yardımcı olabilirmisiniz size zahmet.

 

[cems]

Bir dosya eklemememiş olduğundan , teorik olarak :

Makro kaydetme özelliğini açın

1- C25:C62 Hücrelerindeki yazılar için beyaz renk seçin
2- Aynı aralık için normal siyah renk seçin

Makro kaydetme özelliğini kapatın

İki ayrı elde edilen kodlardan yazıyı beyaza boyayanı printout komutundan önce , siyaha boyayanı da sonrasına yerleştirin ve deneyin .

 

[u.L.a.s]

cems arkaşımızın bahsettiği kodun açılımı aşağıdaki gibi olacaktır.

ilk etapta yazdırmak istemediğin hücre aralığının font rengini beyaz yapar. sonra yazdıralacak alanı seçip yazdırıp sonrasında yazdırmak istemediğin alanı tekrar siyah font yapar.

Sub yazdir()
Range("C25:C62").Font.Color = vbWhite
Range("B1:N69").Select
Range("B1:N69").PrintOut
Range("C25:C62").Font.Color = vbBlack
Range("A1").Select
End Sub

 

[comp_wolf]

cems arkaşımızın bahsettiği kodun açılımı aşağıdaki gibi olacaktır.

ilk etapta yazdırmak istemediğin hücre aralığının font rengini beyaz yapar. sonra yazdıralacak alanı seçip yazdırıp sonrasında yazdırmak istemediğin alanı tekrar siyah font yapar.

Sub yazdir()
Range("C25:C62").Font.Color = vbWhite
Range("B1:N69").Select
Range("B1:N69").PrintOut
Range("C25:C62").Font.Color = vbBlack
Range("A1").Select
End Sub

SİZİN DEDİĞİNİZ KODU BENİM KODUN İÇİNE YAZDIM AŞAĞIDAKİ GİBİ
-------
If TextBox1 = "" Then
MsgBox "Lütfen Kopya Sayısını Giriniz...!!!"
Else
Baslik$ = "DİKKAT !!!"
mesaj$ = " Yazdırma İşlemi Gerçekleşsin mi??.."
cevap$ = MsgBox(mesaj$, 4 + 32 + 0, Baslik$)
If cevap$ = 6 Then
Sheets("TEKLİF").Select
Range("C25:C62").Font.Color = vbWhite
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$69"
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1, ActivePrinter:=ListBox1
Else
End If
End If
Range("C25:C62").Font.Color = vbBlack
End Sub
------
YAZICI SEÇİP YAZDIR BUTONUNA BASTIĞIM ZAMAN

Range("C25:C62").Font.Color = vbWhite
SATIRDA HATA VERİYOR
NEDEN BU HATAYI VERİYOR?.
BİRDE BEN BU YAZDIRMAK İSTEMEDİĞİM SATIRLARA BAŞKA SAYFADAN YAZI GETİRTİYORUM AMA YAZICIDAN ÇIKTI ALIRKEN ORAYA BAŞKA BİR YAZI YAZDIRSAM SADECE YAZICIDAN ÇIKTI ALDIĞIM ZAMAN O YAZDIRMAK İSTEMEDİĞİM KISIMA FİRMA İSMİNİ YAZSAM DİYE DÜŞÜNÜYORUM OLUR MU ACABA ?

 

[TayfunKaya]

Veya, tüm hücreleri ctrl+a veya mouse ile kaydırarak seçin, sonra ctrl ye basılı tutarak yazdırılmasını istemediğiniz hücrelerin işaretini kaldırın, daha sonra yazdır deyip, yazıcı seçeneklerinden "sadece işaretli hücreleri yazdır" seçeneğini işaretleyin.

 

[comp_wolf]

Veya, tüm hücreleri ctrl+a veya mouse ile kaydırarak seçin, sonra ctrl ye basılı tutarak yazdırılmasını istemediğiniz hücrelerin işaretini kaldırın, daha sonra yazdır deyip, yazıcı seçeneklerinden "sadece işaretli hücreleri yazdır" seçeneğini işaretleyin.

ÇOK TEŞEKKÜR EDERİM AMA BENİM İÇİN SORUN DEĞİL EXEL KULLANIMI İŞ YERİNDEKİ DİĞER ARKADAŞLAR BİLMEDİKLERİ İÇİN ONLARA BÖYLE KODLAMA İLE KULLANIMLAR YAPIYORUM. SAĞOLUN TEKRAR

 

[comp_wolf]

SİZİN DEDİĞİNİZ KODU BENİM KODUN İÇİNE YAZDIM AŞAĞIDAKİ GİBİ
-------
If TextBox1 = "" Then
MsgBox "Lütfen Kopya Sayısını Giriniz...!!!"
Else
Baslik$ = "DİKKAT !!!"
mesaj$ = " Yazdırma İşlemi Gerçekleşsin mi??.."
cevap$ = MsgBox(mesaj$, 4 + 32 + 0, Baslik$)
If cevap$ = 6 Then
Sheets("TEKLİF").Select
Range("C25:C62").Font.Color = vbWhite
ActiveSheet.PageSetup.PrintArea = "$B$1:$N$69"
ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1, ActivePrinter:=ListBox1
Else
End If
End If
Range("C25:C62").Font.Color = vbBlack
End Sub
------
YAZICI SEÇİP YAZDIR BUTONUNA BASTIĞIM ZAMAN

Range("C25:C62").Font.Color = vbWhite
SATIRDA HATA VERİYOR
NEDEN BU HATAYI VERİYOR?.
BİRDE BEN BU YAZDIRMAK İSTEMEDİĞİM SATIRLARA BAŞKA SAYFADAN YAZI GETİRTİYORUM AMA YAZICIDAN ÇIKTI ALIRKEN ORAYA BAŞKA BİR YAZI YAZDIRSAM SADECE YAZICIDAN ÇIKTI ALDIĞIM ZAMAN O YAZDIRMAK İSTEMEDİĞİM KISIMA FİRMA İSMİNİ YAZSAM DİYE DÜŞÜNÜYORUM OLUR MU ACABA ?

HATAYI KENDİM ÇÖZDÜM SAYFA KORUMALI OLDUĞU İÇİN YAZI RENGİNDE DEĞİŞİKLİK YAPMAMA İZİN VERMİYORMUŞ SİSTEM. ŞİMDİ DÜZELDİ ÇOK TEŞEKKÜR EDERİM. YARDIMLARINIZ İÇİN.
EĞER Kİ O YAZISINI BEYAZ YAPTIĞIM HÜCRELERİN YERİNE YAZICIDA İSTEDİĞİM FİRMA İSMİNİDE YAZABİLİRSEM ÇOK GÜZEL OLACAK

 

[TayfunKaya]

ÇOK TEŞEKKÜR EDERİM AMA BENİM İÇİN SORUN DEĞİL EXEL KULLANIMI İŞ YERİNDEKİ DİĞER ARKADAŞLAR BİLMEDİKLERİ İÇİN ONLARA BÖYLE KODLAMA İLE KULLANIMLAR YAPIYORUM. SAĞOLUN TEKRAR

Arkadaşlar gerekli cevabı vermiş olmalı diye ben biraz tarzın dışına çıktım yanlış anlamayın rica ederim iyi günler ????️

 

[comp_wolf]

Arkadaşlar gerekli cevabı vermiş olmalı diye ben biraz tarzın dışına çıktım yanlış anlamayın rica ederim iyi günler ????️

YOK EFENDİM NE DEMEK İYİ GÜNLER. TEŞEKKÜRLER.