Skip to main content

AccessTr.neT M.


Excel Fast Report Bağlantısı Hk.

Excel Fast Report Bağlantısı Hk.

Çözüldü #1
Merhaba 

Çalışmakta olduğum şirkette personel puantajı üzerinde çalışıyorum. Puantaj üzerinden isteğe bağlı olarak bazı alanları seçip yazdırmak istiyorum. Her ne kadar düzenlesemde yazcı çıktısında sayfaya sığdırma konusunda sıkıntı yaşıyorum. Uzun zamandır Excel ile fast report arasında bağlantı kurmak için araştırma yaptım ama bir çözüm bulamadım.

Sorunum : Excel'de yan yana (Adı Soyadı Görevi Birimi İşe Giriş Tarihi İl İlçe Köy Adres) v.s. sütunlar var. Bunlardan örnek (Adı Soyadı Görevi Birimi İşe Giriş Tarihi) alanlarını seçip fast report aracılığı ile yazdırmak istiyorum. Bunu nasıl yapabilirim. Yardımcı olabilir misiniz. Yada farklı bir çözüm öneriniz var mı?

Cevapla
#2
Fast Report hakkında bilgim yok ancak Örnek dosya ekleme şansınız varsa alternatif yollar için yardımcı olabilirim

Savaş ne kadar zorsa zafer o kadar tatlıdır.  [Resim: +rep.gif]

Blog sayfamız için tıklayın
Android uygulamamız için tıklayın
Cevapla
...........
#3
Merhaba 

Dosyada sütunlarca veri var ben istediklerimi seçip yazdır dediğim zaman yazdırmasını istiyorum. Örnek :(Adı Soyadı Görevi Birimi İşe Giriş Tarihi İl İlçe Köy Adres) seçip yazıcıdan çıktı almak istiyorum.

https://drive.google.com/open?id=1wvyaR5..._llSnmLqKE

Cevapla
#4
aşağıdaki kodu dener misiniz?
önce sütunları -sütun başlıklarının olduğu 2. satırdaki hücreleri -seçip sonrada düğmeye basmalısınız

Visual Basic Code
Dim Secili As Range
Dim xSht As Sheets
Dim TxtAdrs() As String
Set Secili = Selection
Dim Hucr As Range
Dim SeciliRng As String

xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets.Add.Name = "GccSil"

SonHcr = Sheets("VERİ").Cells(Rows.Count, 1).End(xlUp).Row
For Each Hucr In Secili.Cells
    With Hucr
    TxtAdrs = Split(.Address, "$")
        SeciliRng = SeciliRng & "," & TxtAdrs(1) & TxtAdrs(2) & ":" & TxtAdrs(1) & SonHcr
    End With
Next Hucr
SeciliRng = Mid(SeciliRng, 2)

Sheets("VERİ").Range(SeciliRng).Copy Sheets("GccSil").Range("A1")
Sheets("GccSil").PrintOut
Sheets("GccSil").Delete

Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert

Cevapla
...........
#5
(03/01/2020 20:16)berduş Adlı Kullanıcıdan Alıntı: aşağıdaki kodu dener misiniz?
önce sütunları -sütun başlıklarının olduğu 2. satırdaki hücreleri -seçip sonrada düğmeye basmalısınız

Visual Basic Code
Dim Secili As Range
Dim xSht As Sheets
Dim TxtAdrs() As String
Set Secili = Selection
Dim Hucr As Range
Dim SeciliRng As String

xScreenUpdate = Application.ScreenUpdating
xAlert = Application.DisplayAlerts
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Sheets.Add.Name = "GccSil"

SonHcr = Sheets("VERİ").Cells(Rows.Count, 1).End(xlUp).Row
For Each Hucr In Secili.Cells
    With Hucr
    TxtAdrs = Split(.Address, "$")
        SeciliRng = SeciliRng & "," & TxtAdrs(1) & TxtAdrs(2) & ":" & TxtAdrs(1) & SonHcr
    End With
Next Hucr
SeciliRng = Mid(SeciliRng, 2)

Sheets("VERİ").Range(SeciliRng).Copy Sheets("GccSil").Range("A1")
Sheets("GccSil").PrintOut
Sheets("GccSil").Delete

Application.ScreenUpdating = xScreenUpdate
Application.DisplayAlerts = xAlert

Merhaba belirttiğiniz kodu Alt+F11 ile açılan sayfaya yaptırdım. daha sonra buton oluşturduğum zaman kodu seçemiyorum. Eğer müsaitseniz örnek dosyada yapma şansınız var mı?

Cevapla
#6
Butona sağ tıklayıp
Macro ata
Yeni
Kodu cikan sayfaya yapistirin

Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da