Sorgu için arama sonuçları: activeprinter

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

Hocam yazıcı network e bağlı olduğu için admin dışında kopyalama yapma izni vermedi. Bu nedenle sonuca ulaşamadım.

En kolayı printeri kopyalayacaksınız. Kopya printerin default ayarını dublex olarak ayarlayacaksınız. Excelden gönderirkende bu yazıcıya göndereceksiniz. ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="DublexYaziciIsmi"

Private Sub CommandButton1_Click() Sheets("RAPOR").PrintPreview Worksheets("RAPOR").PrintOut ActivePrinter:="Brother MFC-L2700dw series Printer" 'KENDİ YAZICINIZIN MARKASINI BELİRTİNİZ' End Sub

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

...Dim Tanimli_Printer As String, Printer_Secimi As Variant Dim Gorev_Yoneticisi As Object Tanimli_Printer = Application.ActivePrinter Printer_Secimi = Application.Dialogs(xlDialogPrinterSetup).Show If Printer_Secimi = False Then Exit Sub Application.ScreenUpdating = False...

Merhaba, Forumda benzer konular var. İnceleyiniz. https://www.excel.web.tr/search/250514/?q=Application.ActivePrinter&o=date

...çalışmakta. yazıcının konumu şu şekilde "\\printsrv\gebp235a" Şöyle bir kod ile yazıcıyı tanımlayıp : Sub PrinterSec() Application.ActivePrinter = "\\printsrv\gebp235a on Ne03:" End Sub Bu kodla yazdırmaya çalıştım : 'yazıcı seçtim Call Module1.PrinterSec 'yazdirma islemi yapiyorum...

Teşekkürler hocam

...sanıyorum. Burada dikkat edeceğiniz husus yazıcı isminin görünenden farklı olacağıdır. Şurada yer alan kod ile bilgisayarınızdaki yazıcı isimlerini listeleyebilirsiniz. If Application.ActivePrinter Like "*pantum 250 series " Then 'devam et Else Application.Dialogs(xlDialogPrint).Show...

...= True ActiveSheet.PageSetup.PrintArea = "$A$1:$F$19" ' Kendi alanınızı belirleyin Application.PrintCommunication = False ' Range("A1").Value = Application.ActivePrinter ActiveWindow.SelectedSheets.PrintPreview Application.Dialogs(xlDialogPrinterSetup).Show End Sub

Merhaba, Aşağıdaki komut ile çıktı alıyorum ancak 2 tane kasette kağıdım var, çıktı gönderirken kaset seçebiliyor muyuz? Ben makro kaydederek denedim ancak gelmedi Worksheets("GIDEN").PrintOut From:=1, To:=1, ActivePrinter:="Ne00: üzerindeki ZDesigner GC420t (EPL) "

...= False ActiveWorkbook.RefreshAll DoEvents ActiveSheet.PageSetup.PrintArea = "$A$2:$A$3" Application.ActivePrinter = "Ne02: üzerindeki Microsoft Print to PDF " ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "Ne05: üzerindeki Argox OS-2140 PPLA "...

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

Hocam, şöyle bir hata alıyorum ama.

Teşekkür ederim hocam.

Kendinize uyarlarsınız. Option Explicit Sub Yazdir() Eski_Yazici = Application.ActivePrinter Application.ActivePrinter = "RENKLİ-A" Sheets("Sayfa1").PrinOut Application.ActivePrinter = Eski_Yazici End Sub