seçili hücreyi yazdırmamak

[loxka]

Diğer hücreler yazılsın ama A1 hücresini yazdırmak istemiyorum nasıl yapabilirim teşekkür ederim

 

[Levent Menteşoğlu]

Bunun en pratik çözümü A1 hücresindeki yazı rengini beyaz yapmaktır.

 

[loxka]

mümkünse başka bir yol hocam! bu benim hazırladığım tasarı için geçerli bir yöntem değil maalesef, yinede teşekkür ederim

 

[Levent Menteşoğlu]

Yazdırma alanınızın adresini verirmisiniz.

 

[ersany]

merhabalar

bir diğer yol ise
klavyeden ctrl tuşuna basili tutarak yazdıracağınız alını seçin daha sonra
dosya/yazdırma alanı/yazdırma alanı belirle ye basın

saygılarımla
ersan

 

[loxka]

Yazdırma alanı A1 (daha doğrusu yazdırmama) , Fakat benim sayfamda metin kutuları var dediğiniz yöntemle yapınca sayfanın çıktısında bu sefer hiç bir şey görünmüyor..

 

[TRABLUS]

Peki levent'in önerisi niye işinize yaramadı, bu durumda en iyisi gene levent'in önerisi gibi gözüküyor.

 

[loxka]

hocam aslına bakarsanız bir fatura şablonu hazırlıyorum varolan faturayı printera koyup excelde de bilgileri yazıp fatuıraya yazdırmayı hedefliyoruz. Beyaz bir yazı faturada görüneceği için levent beyin önerisi olmuyor.

 

[Mahmut Bayram]

Range("B1:I56").Select
ActiveWindow.SmallScroll Down:=-33
Range("B1:I56,A2:A56").Select
Range("A2").Activate
Selection.PrintOut Copies:=1, Collate:=True

kodunu deneyiniz

 

[mehmett]

A1 hücresi diğer hücerleri etkiliyor mu?

 

[Mahmut Bayram]

With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = "$B$1:$I$56,$A$2:$A$56"
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.LeftMargin = Application.InchesToPoints(0.75)
.RightMargin = Application.InchesToPoints(0.75)
.TopMargin = Application.InchesToPoints(1)
.BottomMargin = Application.InchesToPoints(1)
.HeaderMargin = Application.InchesToPoints(0.5)
.FooterMargin = Application.InchesToPoints(0.5)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 180
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
End With
Sheets("Sayfa1").PrintOut Copies:=1, Collate:=True

bu kod ondan daha iyi

 

[Mahmut Bayram]

yukarıdaki son kodda yazdırma alanı tanımlanıyor. daha sonra sayfa seçilip çıktı alınıyor.

 

[loxka]

teşekkür ederim hocam verdiğiniz örnekleri deneyeceğim, olursa sizleri bilgilendiririm. Bu arada A1 hücresi diğerlerini etkilemiyor.

 

[Levent Menteşoğlu]

Eğer A1 hücresinde sabit bir değer varsa aşağıdaki ufak kodda yazdır işlemini yaparakta çözüm bulunabilir.

[vb:1:e5feb58e34]Sub yazdir()
a = [a1].Value
[a1].Clear
ActiveSheet.PrintOut Copies:=1
[a1] = a
End Sub
[/vb:1:e5feb58e34]