Sorgu için arama sonuçları: activeprinter

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

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.