Sorgu için arama sonuçları: Application.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

...As Variant Dim Son_No As Variant Dim X As Long Dim mevcutprinter As String Set WF = WorksheetFunction mevcutprinter = Application.ActivePrinter Ilk_No = InputBox("Lütfen yazdırmak istediğiniz ilk sıra numarasını yazınız...", "Sıra Numarası", WF.Min(Range("A:A"))) If Ilk_No = False Or...

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?

Bunu deneyiniz Sub Fiş_Yazdır() Dim y As Worksheet Dim x As Long Dim PrinterName As String ' Yazdırma işlemi için kullanılacak sayfayı belirle Set y = Sheets("Yazdır") ' Belirli bir aralıktaki hücreleri temizle y.Range("A3:F50").ClearContents '...

Bu kodu uygulayamadım bende de hata verdi. Makronun tamamı şu şekilde. Sub Fiş_Yazdır() Set y = Sheets("Yazdır") y.Range("A3:F50") = "" y.Range("A5:F50").UnMerge y.Range("A3:F500").Borders.LineStyle = 0 y.Range("A3:F50").Font.Bold = False y.Range("A3:F50").Font.Size = 8...

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

bu kodu mevcut makroyu değiştirerek uygulayıp deneyiniz. Sub PrintWithPrinterSelection() Dim PrinterDialog As Object Dim SelectedPrinter As String ' Yazıcı seçim kutusunu oluştur Set PrinterDialog = Application.Dialogs(xlDialogPrinterSetup) ' Kullanıcıdan yazıcı...

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...

...Printer_Secimi As Variant Dim Yol As String, Dosya As String, Say As Long, Rng As Range Tanimli_Printer = Application.ActivePrinter Printer_Secimi = Application.Dialogs(xlDialogPrinterSetup).Show If Printer_Secimi = False Then Exit Sub...

Deneyiniz. Sub PrintOut() Dim Old_Printer As String Old_Printer = Application.ActivePrinter ActiveWindow.SelectedSheets.PrintOut Copies:=1, _ ActivePrinter:="\\TM6\Brother HL-2040 series", Collate:=True, IgnorePrintAreas:=False Application.ActivePrinter = Old_Printer End Sub

yazıcıyı nihayet seçtim yazdırma işlemi bittikten sonra varsayılan yazıcıya nasıl döndürebilirim, ne eklemem gerekiyor Application.ActivePrinter = "hp yazıcı" = eski haline döndürmek için yeterli olmadı bu ( kodun altına yazmıştım ) ActiveWindow.SelectedSheets.PrintOut copies:=1...

Merhaba , maalesef işe yaramadı

Merhaba, deneyiniz. Sub YaziciSec() Application.ActivePrinter = "\\TM6\BrotherH" End Sub

...ne denediysem olmadı lütfen yardımcı olurmusunuz Sub PrintToAnotherPrinter() Dim STDprinter As String STDprinter = Application.ActivePrinter Application.ActivePrinter = "hp laserjet 1022 on ne02:" ' change printer ActiveSheet.PrintOut ' prints the active sheet...

...Say 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...