DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sayın Orion hocam dönüşün için teşekkür ederim.Buyurun.
Kod:MsgBox Sheets("ANASAYFA").Range("A1").Value MsgBox Sheets("ANASAYFA").Range("K22").Value
Sub m()
Sheets("ANASAYFA").Visible = True
With Sheets("ANASAYFA").PageSetup
.PrintArea = "ANASAYFA!A1:K22"
End With
Sheets("ANASAYFA").PrintOut
Sheets("ANASAYFA").Visible = False
End Sub
Rica ederim.Teşekkür ederim hocam. Sadece bu konu için değil bir çok problemimi çözdünüz bu zamana kadar bilginize sağlık ????