Sayfayı seçilen yazıcıdan yazdırmak ve faxlamak

[1Al2Ver]

İyi akşamlar dileklerimle,

PC'de kayıtlı yazıcılarım var, bunlardan bir tanesine sayfa üzerindeki butonlar yardımı ile fax ve çıktı için yönlendirme yapmak istemekteyim.

Ek'te örneği olan dosyadaki "yazdır" ve "faxla" kodlarına ilave yapılmak suretiyle çözüm rica ediyorum.

Teşekkür ederim, saygılarımla.

 

[1Al2Ver]

İyi akşamlar,

Sanırım bu istek, yoğunluktan dolayı gözden kaçtı, yoksa değerli üyelerimizden birden fazla, alternatifli çözümler gelirdi,

Zamanı olan arkadaşlar bir çözüm üretir veya önerirlerse memnun olurum, saygılarımla.

 

[Seyit Tiken]

"Makro Kaydet" yöntemini kullanarak yapabilirsiniz.

 

[1Al2Ver]

"Makro Kaydet" yöntemini kullanarak yapabilirsiniz.

Sayın Seyit Tiken, teşekkür ederim, saygılar.

 

[yeniyetme]

Private Sub dfddddd_Click()
On Error GoTo err
Dim o, DEG As String
o = MsgBox("Dosya yazıcıya gönedrilsin mi?", vbYesNo)
fax = MsgBox("Fax Gönderilsin mi ?", vbYesNo)
If o = vbNo And fax = vbNo Then
MsgBox "Dosya yazıcıya gönderilmeyecek"
Exit Sub
Else
If o = vbYes Then
DEG = InputBox("Çıktı alınacak adedi giriniz", vbInformation)
Application.ActivePrinter = "Ne03: üzerindeki HP LaserJet 3050 Series PCL 6 "
ActiveWindow.SelectedSheets.PrintOut Copies:=DEG, ActivePrinter:= _
"Ne03: üzerindeki HP LaserJet 3050 Series PCL 6 ", Collate:=True
End If
If fax = vbYes Then
Application.ActivePrinter = _
"Ne02: üzerindeki HP LaserJet 3050_3055_3390_3392 Fax "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Ne02: üzerindeki HP LaserJet 3050_3055_3390_3392 Fax ", Collate:=True
End If

End If
err:
If err Then
MsgBox err.Description
End If
End Sub

Bende böyle bir kod var hem yazıcı hemde fax için
soruda soruyor kendi programına uydurabilirsen işine yarar...
yazıcı ile ilgili kısımları ile ilgili kodları makro kaydet ile teşhis ettim...

 

[1Al2Ver]

Sayın Yeniyetme, öncelikle duyarlığın için teşekkür ederim, deneyeceğim, en azından bir kaynak kod, deneme-yanılma ile sonuca ulaşırım sanıyorum, herşey için tekrar teşekkür ederim, saygılar

 

[yeniyetme]

Benim çalışmalarımda aynı şekilde deneme yanılma yoluyla.
Eğer kodları az birşey bile anlasam mutlaka kendi programıma adapte ediyorum..Bazen bilgisayar gibi düşünmek gerekiyor.