renkli hücreler yazırdığımda çıkmasın

[mereni]

Merhabalar,
Benim excel faturam var. Fatura formmüllerle oluşuyor. Bazı hücreler elle girildiği için renkli. Yazıcıya çıktı aldığımda, rengi yazdırmasın. İstiyorum. Bunun yazıcı ayarı yada excel de bir seçimle yapabilirmiyim. Makro olmasın istiyorum. Çünkü diğer kullanıcılar bozuyor. Excel 2007 kullanıyorum.

( Faturayı başka sayfaya renksiz haliyle alabilirim. Fakat taşı kopyala yöntemiyle aynı anda beş altı fatura oluşturuyorum. Yada renkli yerlere renk yerine açıklama ekleyebilirm. )

 

[Hacı Bayram ÖZKAN]

Dosyanızın Sayfa Yapısı, buradan
Çalışma Sayfası,
Siyah-Seyaz bölümünü tıklayın

 

[İhsan Tank]

merhaba
baskı önizleme - sayfa yapısı - çalışma sayfasında bulunan siyah - beyaz'ın tik'ini işaretleyin.

 

[mereni]

Çok teşekkür ederim.

 

[İhsan Tank]

Çok teşekkür ederim.

rica ederim
iyi çalışmalar :mutlu:

 

[kemalist]

makro ile yapabilirmiyiz?

 

[Emir Hüseyin Çoban]

makro ile yapabilirmiyiz?

. . .

Sub kod()

    ActiveSheet.PageSetup.BlackAndWhite = True
    ActiveWindow.SelectedSheets.PrintOut

End Sub

. . .

 

[kemalist]

. . .

Sub kod()

    ActiveSheet.PageSetup.BlackAndWhite = True
    ActiveWindow.SelectedSheets.PrintOut

End Sub

. . .

Teşekkür ederim...

Sub yazdır1()


ReDim yön(1)
ReDim yaz(1)

yön(1) = xlPortrait 'dikey


yaz(1) = "$B$44:$M$96"


adet = Application.InputBox("Yazdırmak İstiyormusunuz.", "Yazdırılacak kadar sayı giriniz.", "1", 400, 30, , Type:=1)

If adet = False Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If


ActiveSheet.PageSetup.Zoom = False
For i = 1 To 1
Worksheets(ActiveSheet.Name).PageSetup.Orientation = yön(i)
Worksheets(ActiveSheet.Name).PageSetup.PrintArea = yaz(i)

Worksheets(ActiveSheet.Name).PrintOut Copies:=adet, Collate:=True
Next i
Worksheets(ActiveSheet.Name).PageSetup.PrintArea = ""

MsgBox ("işlem tamam."), vbInformation, "UYARI"

End Sub

Elimdeki bu kodun neresine ilave edebiliriz?

 

[Korhan Ayhan]

Tek sayfa yazdırmak için neden döngüye ihtiyaç duydunuz?

 

[kemalist]

Tek sayfa yazdırmak için neden döngüye ihtiyaç duydunuz?

Sayın Korhan Ayhan yazdırma kodu ararken bunu buldum.Koddaki gibi yazdırma sayfa sayısını göstersin belirlenen alanı dikey ve siyah beyaz yazdırsın yeterli.

 

[Korhan Ayhan]

Deneyiniz...

Sub Yazdir()
    Adet = Application.InputBox("Çıktı adedini giriniz...", "YAZDIRMA İŞLEMİ", "1")
    
    If Adet = False Then
        MsgBox "İşlemi iptal ettiniz!", vbExclamation
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.Zoom = False
        .PageSetup.Orientation = xlPortrait
        .PageSetup.PrintArea = "$B$44:$M$96"
        .PageSetup.BlackAndWhite = True
        .PrintOut Copies:=Adet, Collate:=True
        .PageSetup.PrintArea = ""
    End With
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[kemalist]

Deneyiniz...

Sub Yazdir()
    Adet = Application.InputBox("Çıktı adedini giriniz...", "YAZDIRMA İŞLEMİ", "1")
    
    If Adet = False Then
        MsgBox "İşlemi iptal ettiniz!", vbExclamation
        Exit Sub
    End If
    
    With ActiveSheet
        .PageSetup.Zoom = False
        .PageSetup.Orientation = xlPortrait
        .PageSetup.PrintArea = "$B$44:$M$96"
        .PageSetup.BlackAndWhite = True
        .PrintOut Copies:=Adet, Collate:=True
        .PageSetup.PrintArea = ""
    End With
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

Teşekkür ederim..İyi bayramlar...