Sorgu için arama sonuçları: activeprinter

...Sub PDF_Yazdir() Dim Yazicilar As Object Dim Yazici As Object Dim AktifYazici As String AktifYazici = Application.ActivePrinter Set Yazicilar = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Printer") For Each Yazici In Yazicilar If...

merhaba, ben farklı birşey ararken karşılaştım cevabınızla. Acaba kablosuz bağlantı mevcutsa şu yazıcıyı seç, kablo kullanılıyorsa şu yazıcıyı seç demek gibi, bağlantıları kontrol etme şansımız var mı ? tşk

Merhaba, benim kullandığım kod işinize yarayabilir. ActiveSheet.PrintOut Copies:=1, ActivePrinter:="HP LaserJet 1015" Aktif yazıcı ne olursa olsun, bu satırdaki yazıcıya gönderiyor. Sonunda aktif yazıcıyı yine eskisine ayarlıyor. Sub Yazdir() Dim WF As WorksheetFunction Dim Ilk_No As Variant...

Linkteki konuların belki faydası olabilir.. https://www.excel.web.tr/search/401228/?q=activeprinter&o=date

Malesef yine burada seçili olan haricinde varsayılan yazıcıya gönderiyor.

...+ 4) = " " ' Belirli bir yazıcı adını ayarla PrinterName = "TS009: OKI ML3320 TR (2 yönlendirildi)" ' Yazdır x = y.Cells(Rows.Count, 2).End(xlUp).Row y.Range("A1:F" & x + 31).PrintOut Copies:=1, ActivePrinter:=PrinterName, Collate:=True Set y = Nothing...

Bu makro çalışıyor ancak şöyle bir sorun var. Yazdır butonuna bastığımızda yazıcı seçim ekranı geldiği için nokta vuruşlu yazıcıyı seçtiğimiz anda diğer excel dosyalarıda otomatikman aynı yazıcıyı kullanmaya başlıyor. Sadece makronun çalıştığı ilgili sayfada "TS009: OKI ML3320 TR (2...

Teşekkür ederim Evet çalıştı. Butona bastığımızda yazıcı seçim ekranı geliyor. Oradan yazdır dediğimde yazdırıyor. Peki burada Yazıcıyı sabitleyemezmiyiz?

...If PrinterName <> "" Then ' Yazdır x = y.Cells(Rows.Count, 2).End(xlUp).Row y.Range("A1:F" & x + 31).PrintOut Copies:=1, ActivePrinter:=PrinterName, Collate:=True Else MsgBox "Yazıcı seçilmedi! İşlem iptal edildi." End If Set y = Nothing End Sub

...y.Range("A" & x + 4 & ":F" & x + 4).Merge y.Range("A" & x + 4).HorizontalAlignment = xlLeft y.Range("A" & x + 4) = " " x = y.Cells(Rows.Count, 2).End(3).Row y.Range("A1:F" & x + 31).PrintOut Copies:=1, ActivePrinter:="TS009: OKI ML3320 TR (2 yönlendirildi) ", Collate:=True Set y = Nothing...

Hocam, 1. yazıcı yönlendirmesinde sorun yok tekrar kontrol ettim. uzak masaüstünde elle yazdır dediğimizde de sorunsuz yazdırıyor zaten 2. Kod hata veriyor

Kodunuzu denedim. Aşağıdaki satırda hata verdi. SelectedPrinter = PrinterDialog.DeviceName

...bağla seçeneğini işaretleyin. Uygula ve Tamam butonlarına tıklayın. 2. Yazıcı Seçimi: Excel dosyanızdaki VBA kodunda yazıcıyı seçerken ActivePrinter yerine yazıcınızın tam adını kullanın. Örnek kod: y.Range("A1:F" & x + 31).PrintOut Copies:=1, Printer:="TS009: OKI ML3320 TR (2...

...= PrinterDialog.DeviceName Else MsgBox "Yazıcı seçilmediği için işlem iptal edildi." Exit Sub End If ' Seçilen yazıcıya belgeyi yazdır ThisWorkbook.Sheets("Sayfa1").Range("A1:F" & x + 31).PrintOut Copies:=1, Collate:=True, ActivePrinter:=SelectedPrinter...

...baskısı) çıktıları kendi bilgisayarımdaki noktavuruşlu bir yazıcıdan almam gerekiyor. y.Range("A1:F" & x + 31).PrintOut Copies:=1, ActivePrinter:="TS009: OKI ML3320 TR (2 yönlendirildi) ", Collate:=True Kullandığım kod bu.Kendi bilgisayarımda bu kod çalışıyor ancak uzak masaüstünde kod...

...paylaşıyorum çözümü: Sub YAZDIR() ' ' YAZDIR Makro ' ' Sheets("SAYFA1").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="HP", Collate:=True, _ IgnorePrintAreas:=False Sheets("SAYFA2").Select ActiveWindow.SelectedSheets.PrintOut Copies:=1...

Sayın dost, teşekkür ederim öncelikle cevabınız için. Konuyu nasıl hallettim hatırlamıyorum inanın. Ama verdiğiniz kodu saklayacağım. Mutlaka işime yarayacaktır.

...Sub PrintViaMicrosoftToPDF() 'Save the current active printer for later reset: Dim OldPrinter OldPrinter = Trim(Split(Application.ActivePrinter, "in")(0)) 'Define the new active printer CreateObject("WScript.Network").SetDefaultPrinter "Microsoft Print to PDF" Dim IE As InternetExplorer Dim...

Evimde printer olmadığı için hiç denemedim. Ama örnek olarak şöyle belirtiliyor. Application.ActivePrinter = "HP LaserJet 4000 Series PCL6 on Ne01:" Application.ActivePrinter = "Microsoft XPS Document Writer on XPSPort" Printer adı ve bağlı bulunduğu port ya da network adı diye biliyorum...

...As Variant Dim Yol As String, Dosya As String, Say As Long Set S1 = Sheets("Sayfa1") Tanimli_Printer = Application.ActivePrinter Printer_Secimi = Application.Dialogs(xlDialogPrinterSetup).Show If Printer_Secimi = False Then Exit Sub Application.ScreenUpdating...