With ExcelDosyasi
.Sheets(1).Select
.ActiveWindow.DisplayGridlines = False
.Cells(1, 2) ="hocam burda mahalle otomatik kendi gelecek bi önceki gibi mahallenin önüne ve arkasına sabit yazı eklemek istiyorum"[color][/color]
.Cells.Font.Name = "Arial"
.Cells.Font.Size = 20
'Kayıt yoksa çıkılıyor
If Rs.RecordCount = 0 Then
.Cells(2, 2) = "Kayıt bulunamadı"
Rs.Close
Exit Sub
End If
Çarpraz Sorgudan Rapor oluşturma
Konuyu Okuyanlar: 1 Ziyaretçi