Skip to main content

AccessTr.neT


Yazıcı seçme ve yazdırma

Yazıcı seçme ve yazdırma

Çözüldü #1
Arkadaşlar bizim pc ye iki tane yazıcı bağlı bir iğneli biri laser iğnelide makbuz takılı oradan sürekli makbuz yazırıyoruz ve varsayılan yazıcıda o. Laserden de ekte gönderdiğim çıktıyı alıyoruz. Genelde dalgınlık olunca direk yazdıra basınca yanlışlıkla makbuzun bulunduğu yazıcıya gönderiyor. Bu da bizim makbuzlarda hatalı çıktı yapmamıza ve iptal etmemize sebeb oluyor. Benim istediğim ekteki örneğe bir butonla direk laser yazıcıya 3 kopya göndermek istiyorum.(Laser Yazıcı : VEZNE Hp Laserejet 1022) Yardımlarınızı bekliyorum.
teşekkür ederim.

Ek Dosyalar
 KREDİ kuruş.rar(9.42 KB)
Cevapla
Çözüldü #2
Kod:
Sub Yazdır()
ActiveSheet.PageSetup.PrintArea = "$A$1:$AT$71"
ActiveWindow.SelectedSheets.PrintPreview
Application.ActivePrinter = "\\10.238.153.65\hp officejet 5500 series on Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\10.238.153.65\hp officejet 5500 series on Ne03:", Collate:=True
End Sub

veya

[/code]Sub PrintSeç()
Application.Dialogs(xlDialogPrint).Show
End Sub
Kod:
birde
Sub Yazdır()
MyPrinter="\\10.238.153.65\hp officejet 5500 series on Ne03:"[/code]
ActiveSheet.PageSetup.PrintArea = "$A$1:$AT$71"
'ActiveWindow.SelectedSheets.PrintPreview
Application.ActivePrinter =MyPrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
MyPrinter, Collate:=True
End Sub[code]
Bu kodları kendine göre ayarlaybilirsiniz.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla
Çözüldü #3
Sayın duayen,
ilginize teşekkür ederim. Bu kodlarla ben yapmaya çalıştım. Ama hata verdi. Mümkünse örnek özerinde yapmam şansınız var mı?
teşekkür ederim.
Cevapla
Çözüldü #4
Hata veriyor demişsiniz, ama hangi satırda ve ne hatarsı verdiğini belirtmemişsiniz.
Alttaki kodlar sayesinde default printer ayarınızdan etkilenmeden "Printer_Adi" olarak belirttiğiniz printer ile çıktı alabilisiniz.

Sub Printer_Degister()
Dim Varsayilan_Printer As String
Varsayilan_Printer = Application.ActivePrinter
On Error Resume Next
Application.ActivePrinter = "Printer_Adi"
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
Application.ActivePrinter = Varsayilan_Printer
End Sub
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #5
sayın maytas,
printer adını yazmama rağmen yine varsayılan yazıya gönderiyor.
teşekkür ederim.
Varsayılan yazıcı :Oki ML3390
Yazıyı göndermek istediğim yazıcı : VEZNE HP LaserJet 1022
Cevapla
Çözüldü #6
Sayın hegu,

Bu kodlar sizin tam istediğiniz kodlar, defalarca test edilmiştir ve problemsiz çalıştığı tespit edilmiştir.
Bi yerlerde yanlış yapıyor olmalısınız.
Kodları çalıştırmak yerine çıktıyı yazıcı araç çubuğuna tıklayarak alıyor olmayasınız?
Ayrıca manuel olarak seçitğiniz halde diğer printere çıktı gönderebiliyor musunuz, ona dikkat edin.
Yapamıyorsanız, başka problem var demek, yapabiliyorsanız bu kodlar işinizi görüyor olması lazım.
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task