yazdırma alanı

[mcetinkaya65]

Ekde gönderdiğim belgenin A52 hücresinde veri var ise yazdırma alanının 2 sayfasınıda yazdırılması,eğer A52 hücresi boş ise sadece 1. sayfayı yazdırması mümkün mü?
selamlar

 

[İhsan Tank]

Ekde gönderdiğim belgenin A52 hücresinde veri var ise yazdırma alanının 2 sayfasınıda yazdırılması,eğer A52 hücresi boş ise sadece 1. sayfayı yazdırması mümkün mü?
selamlar

Merhaba
Boş bir module kopyalayıp dener misiniz_?

Option Explicit
Sub yazdır_61()
If Sheets("Geçici").Range("A52") = Empty Then
Sheets("Geçici").PrintOut to:=1, copies:=1
Else
Sheets("Geçici").PrintOut to:=2, copies:=1
End If
End Sub

 

[mcetinkaya65]

Allah razı olsun.İlginize teşekkür.

 

[mcetinkaya65]

2 nolu mesajdaki kodları ilgili yerlere aktardığımızdaYukardaki dosyada, geçici sayfasındaki yazdır butonu na yazdır dediğimizde, a52 hücresi dolu ise 2 tabloyu da yazdırıyor, a 52 boş sa birinci tabloyu yazdırıyor.Bu işleme 1 2 sayfa daha eklememiz mümkün mü?Saygılarımla(