yazdırma alanı görüntüsü

[karaelmas4467]

açıklamayı ekte yaptım. yazdırma alanını resim olarak bir hücrede gösterebilirmiyim. şimdiden teşekürler..

 

[karaelmas4467]

açıklamayı ekte yaptım. yazdırma alanını resim olarak bir hücrede gösterebilirmiyim. şimdiden teşekürler..

sanırım kimse ilgilenmedi.. gerçi biraz aceleci oldum ama cevaba acil ihtiyacım var..

 

[Seyit Tiken]

Ben olayı bu şekilde anladım. B61 hücresine değer girerek uygulamayı deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.DisplayAlerts = False
If [B61] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$G$60:$L$79"
Else
ActiveSheet.PageSetup.PrintArea = ""
End If
Application.DisplayAlerts = True
End Sub

 

[karaelmas4467]

sanırım ben tam anlatamadım..yazdırma alanı olarak belirlediğim alanın g60 hücresinde görünmesini istiyordum. sizin kodlarınızla yazdırma b61 hücresine veri girildiğinde yazdırma alanı belirleniyor. yani yeni bir yazdırma alanı oluşuyor.

 

[karaelmas4467]

sorunu hallettim ilginize teşekürler. yazdırma alanını resim bağlantısı olarak görmek istediğim yere kopyaladım.