Skip to main content

AccessTr.neT


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
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
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ş yazdı: 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
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
Task