Çift Tıklama İle Yazdırma hakkında..

[yesimgurol]

Merhabalar ,
Çalışma sayfasında belirlenen sütunda herhangi bir satıra çift tıkladığımda belirlenen değerleri yazdırmak istemiştim. Ek teki dosyamda da açıklamaya çalıştım.Umarım anlatabilmişimdir isteğimi..

 

[askm]

HASTA LİSTESİ sayfasının kod bölümüne aşağıdaki kodları yazınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Sutun = Target.Column: Satir = Target.Row
If Sutun = 3 And Satir > 1 Then
    Sheets("BARKOD").Cells(2, "B") = Cells(Target.Row, "B")
    Sheets("BARKOD").Cells(3, "B") = Cells(Target.Row, "H")
    Sheets("BARKOD").Cells(1, "B") = Cells(Target.Row, "C")
    Sor = MsgBox("barkod yazdırmak istiyormusunuz", vbYesNo, "ASKM")
    If Sor = vbYes Then
         Sheets("BARKOD").PrintOut
    End If
End If
End Sub

 

[yesimgurol]

Sayın "askm" harikasınız ,çok teşekkür ederim. Son bir şey daha rica etsem ayıp etmem umarım:-( deneyince ortaya çıkan bir sorun oldu çünkü. Şöyle ki , bilgisayarda iki yazıcı tanımlı normal yazıcı ve barkod yazan yazıcı, acaba yazıcı seçimi yapabilmek için yada bu kodlara istediğimiz yazıcıyı ekleme şansımız olur mu acaba..

 

[askm]

Bunun için 3 seçeneğiniz var.
İki seçenek http://www.excel.web.tr/f48/makro-ile-yazycy-secimi-ve-yazdyrma-t21848.html linkde mevcut.
3. seçenek kodları çalıştırmadan önce manuel yazıcı seçmeniz.

 

[yesimgurol]

Bunun için 3 seçeneğiniz var.
İki seçenek http://www.excel.web.tr/f48/makro-ile-yazycy-secimi-ve-yazdyrma-t21848.html linkde mevcut.
3. seçenek kodları çalıştırmadan önce manuel yazıcı seçmeniz.

Sayın askm, ilginiz için çok teşekkür ederim..:bravo::mutlu::mutlu:

 

[askm]

Rica ederim. Kolay gelsin.