Sorgu için arama sonuçları: Application.ActivePrinter

...kaydet dedikten sonra yazdırma menüsünden istediğiniz yazıcıyı seçtiğinizde aşağıdakine benzer biçimde kodunuz oluşacaktır. Bu kodu kendi kodunuzda yer alan yazdırma kodunun öncesine ilave edebilirsiniz. Örnek kod: Application.ActivePrinter = "Ne00: üzerindeki ZDesigner ZD420-203dpi ZPL (Copy...

paylaşılan yazıcıyı aktif yazıcı olarak seçip şu kodu çalıştırn. (msgbox Application.ActivePrinter) sonuca görede şu kodda gerekli değişikliği yapın Application.ActivePrinter = "\\PC1\XEROX on NeXX:"

...Satir As Long Dim Gorev_Yoneticisi As Object, Uygulamalar As Variant, Uygulama As Object Tanimli_Printer = Application.ActivePrinter Printer_Secimi = Application.Dialogs(xlDialogPrinterSetup).Show If Printer_Secimi = False Then Exit Sub...

@Korhan Ayhan Bey, SAYFAYI YAZDIR butonuna tıklayınca satırları gizliyor ama GEÇERLİ TARİHTEKİ verileri üstteki verilerin altında hepsini yazmasını istiyorum. Aşağıdaki hataları veriyor. Yardım eder misiniz

ilginiz için çok teşekkür ederim. Cihaza bağlı 3 adet yazıcı bulunmakta. Bu işlem için kullanacağım yazıcı Samsung SCX-4x21 Series (USB003). Kod bölümündeki printer_name = "Ne00: üzerindeki Zebra TLP2844 " bu satırı printer_name = "Ne00: üzerindeki Samsung SCX-4x21 Series (USB003) " olarak...

...= "$A1:$E" & Cells(Rows.Count, 5).End(3).Row printer_name = "Ne00: üzerindeki Zebra TLP2844 " myPrinter = Application.ActivePrinter ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name, Copies:=kopya Application.ActivePrinter = myPrinter End Sub C1...

...olmadı... 'Haluk - 27/12/2018 ' Sub YAZICI_SEC() Dim STDprinter As String, other_Printer As String STDprinter = Application.ActivePrinter other_Printer = "ZARF" port_Zarf = GetPrinterPort(other_Printer) Application.ActivePrinter = port_Zarf & " üzerindeki " &...

...yazıp kendi excelimde denedim. Selamlar.. Başarılar... Sub YAZICI_SEC() Dim STDprinter As String STDprinter = Application.ActivePrinter On Error GoTo hata1 Application.ActivePrinter = "Ne00: üzerindeki ZARF " ' On Error GoTo hata1 kodu olası zararlar karşısında...

...dönse. Bu şekilde bir işlem mümkün müdür. Kullandığım kodlar. Sub YAZICI_SEC() Dim STDprinter As String STDprinter = Application.ActivePrinter Application.ActivePrinter = "Ne00: üzerindeki ZARF " 'Yeni bir yazıcı tanımlanırsa ya da port eklenirse Ne00 numarası değişebiliyor ve bu da...

Konuya dahil oldunuz ama, öneriniz zaten yukarıdaki mesajlardan farklı değil...... Söz konusu yazıcı adının "Zebra TLP2844 on Ne01:" falan gibi bir şey olması lazım....... @mc_exrem 'e bunu buldurmaya çalışıyorum ama şimdilik bir cevap yok. .

Sub Test() Dim myPrinter As String Dim printer_name As String myPrinter = Application.ActivePrinter [P1] = myPrinter end sub Öncelikle çıktı almak istediğiniz yazıcıyı manuel olarak varsayılan seçin. Yukarıdaki kodu çalıştırdığınızda yazıcının adını P1 hücresine yazacaktır...

vaysayılan yazıcıya gönderdi. Başka kod deneyebilir miyiz?

...olmadığı deneme şansım yok; Sub Test() Dim myPrinter As String Dim printer_name As String printer_name = "Zebra TLP2844" myPrinter = Application.ActivePrinter ActiveSheet.PrintOut Preview:=False, ActivePrinter:=printer_name Application.ActivePrinter = myPrinter End...

Cevabınız için teşekkür ederim. başaralı olmadı, yazıcı yönteminde sanal PDF sürücüsü her seferinde onay istiyor. bu bir sorun oluşturdu. farklı kaydet ile PDF formatında kaydedebilirmiyiz acaba, sayfanın adıyla kaydetmem gerekiyor Kitap1 adıyla bir dosya ekledim basit ve içinde makrosu bulunan

...aşağıdaki kodu yerleştirip bir deneme yapabilirsiniz. Koddaki yazıcı ismini (Adobe PDF on Ne04:) kendi sisteminize göre değiştirmeyi unutmayın. Application.ActivePrinter = "Adobe PDF on Ne04:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF on Ne04:", collate:=True .

...& ".pdf" If Dir(yol) = "" Then MsgBox dosya & " Nolu Fatura Klasörde Bulunamadı!!!", vbCritical + vbOKOnly, "Hata": End Application.ActivePrinter = ft.Range("J1") 'ShellExecute Application.hwnd, "open", yol, vbNullString, left(yol,3), SW_SHOWNORMAL ShellExecute Application.hwnd, "print"...

...sheetleri kayıt yapamaz durumdadır. Module 1 sayfası kodları Sub Makro1() ' ' Makro1 Makro ' Sub Makro1() Application.ActivePrinter = "Ne05: üzerindeki \\Printserver1\PRINTER-77 " ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Ne05: üzerindeki...

...seçiyorum ve VERİLER sayfasında D31 hücrei ile D32 hücresine yazıcı isimlerini yazdırıyorum. Sonra başka makrolarda Application.ActivePrinter = Sheets("VERİLER").Cells(32, 4) komutu ile Oval1_Tıklat makrosu ile yazdığım yazıcıları aktif printer haline getirerek sayfamı seçtiğim aktif...

...Down:=12 Range("B1:F24").Select Range("F24").Activate ActiveSheet.PageSetup.PrintArea = "$B$1:$F$24" ActiveWindow.SmallScroll Down:=-15 Range("A7").Select 'Yazıcı Seçimi Application.ActivePrinter = "LPT1: üzerindeki EPSON LX-300+ /II " ActiveWindow.SelectedSheets.PrintOut

...Application.ScreenUpdating = False Sheets("FATURA").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$K$36" Application.ActivePrinter = "LPT1: üzerindeki EPSON FX Series 1 (80) " ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "LPT1: üzerindeki EPSON FX Series 1 (80) "...