Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/02/2012 09:47
Konu Sahibi
hegu
Yorumlar
22
Okunma
8283
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

hegu

Aktif Üye
HÜ....
 53
 538
 72
 03/11/2008
23
 Konya
 Sağlık Memuru
 Ofis 2007
 07/12/2018,16:49
Çözüldü 
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)



Kullanici Avatari

DUAYEN

Aktif Üye
SÜ.... AR....
 35
 1.026
 71
 13/08/2010
279
 Yozgat
 
 Ofis 2007
 18/04/2018,17:46
Çözüldü 

Kod:
1
2
3
4
5
6
7
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...

Kullanici Avatari

hegu

Aktif Üye
HÜ....
 53
 538
 72
 03/11/2008
23
 Konya
 Sağlık Memuru
 Ofis 2007
 07/12/2018,16:49
Çözüldü 
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.



Kullanici Avatari

maytas

Onursal Üye
 53
 545
 24
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 28/07/2018,14:42
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
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.
[Resim: 3l7gq.gif]

Kullanici Avatari

hegu

Aktif Üye
HÜ....
 53
 538
 72
 03/11/2008
23
 Konya
 Sağlık Memuru
 Ofis 2007
 07/12/2018,16:49
Çözüldü 
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



Kullanici Avatari

maytas

Onursal Üye
 53
 545
 24
 21/12/2008
178
 Bursa
 
 Ofis 2010 32 Bit
 28/07/2018,14:42
Çözüldü 
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.
[Resim: 3l7gq.gif]


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Veri Listesindeki Değerlerin Toplamlarını Yazdırma uzunlarbilisim 5 815 16/05/2017, 23:41
Son Yorum: uzunlarbilisim
Çözüldü İki Tarih arası ödeme tarihini ödeme tutarının yanına yazdırma ercansahiner 5 2.002 10/07/2016, 15:02
Son Yorum: atoz112
Çözüldü sütundan çoklu veri arama ve hücreye yazdırma tolgahat 5 1.064 30/05/2016, 14:50
Son Yorum: atoz112
Çözüldü Formu otomatik yazdırma yyhy 3 1.224 20/12/2015, 05:35
Son Yorum: atoz112
Çözüldü İlk Satırı Tüm sayfalarda Yazdırma yorum70 1 1.759 06/01/2015, 21:59
Son Yorum: yorum70

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.
123444