Sorgu için arama sonuçları: activeprinter

...Criteria1:=gun ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & a Sheets(" KASA DEFTERİ ").PrintOut Copies:=1, ActivePrinter:="Ne01: üzerindeki Samsung SCX-4x21 Series (USB003) ", Collate:=True, _ IgnorePrintAreas:=False Sheets(" KASA DEFTERİ...

Çok çok teşekkür ederim. Sayfadaki gereksiz satırları da yazmıyor. son hali sayfanın ekledim

...Criteria1:=gun ActiveSheet.PageSetup.PrintArea = "$A$1:$F$" & a Sheets(" KASA DEFTERİ ").PrintOut Copies:=1, ActivePrinter:="Ne01: üzerindeki Samsung SCX-4x21 Series (USB003)", Collate:=True, _ IgnorePrintAreas:=False Sheets(" KASA DEFTERİ...

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

bunu yüklediğim dosyaya eklemeniz mümkün mü acaba? diğer kodların bozulmasından çekiniyorum.

...DEFTERİ ").Range("$A$3:$F$" & a).AutoFilter Field:=6, Criteria1:=gun Sheets(" KASA DEFTERİ ").PrintOut Copies:=1, ActivePrinter:="USB003: üzerindeki Samsung SCX-4x21", Collate:=True, _ IgnorePrintAreas:=False Sheets(" KASA DEFTERİ ").Range("$A$3:$F$" &...

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

HATAYI KENDİM ÇÖZDÜM SAYFA KORUMALI OLDUĞU İÇİN YAZI RENGİNDE DEĞİŞİKLİK YAPMAMA İZİN VERMİYORMUŞ SİSTEM. ŞİMDİ DÜZELDİ ÇOK TEŞEKKÜR EDERİM. YARDIMLARINIZ İÇİN. EĞER Kİ O YAZISINI BEYAZ YAPTIĞIM HÜCRELERİN YERİNE YAZICIDA İSTEDİĞİM FİRMA İSMİNİDE YAZABİLİRSEM ÇOK GÜZEL OLACAK :)

...= vbWhite ActiveSheet.PageSetup.PrintArea = "$B$1:$N$69" ActiveWindow.SelectedSheets.PrintOut Copies:=TextBox1, ActivePrinter:=ListBox1 Else End If End If Range("C25:C62").Font.Color = vbBlack End Sub ------ YAZICI SEÇİP YAZDIR BUTONUNA BASTIĞIM ZAMAN Range("C25:C62").Font.Color = vbWhite...

aşağıdaki kodla hangi yazıcı tanımlı ise userformu yazıcıdan yazdırıyor UserForm1.PrintForm ancak ben userformu belirli yazıcıdan yazdırmak istiyorum fakat prı intform kısmında hata veriyor kod şöyle: UserForm1.PrintForm Copies:=1, Collate:=True, ActivePrinter:="10.141.4.32"

Private Sub KREDİNO_YAZDIR_Click() Sheets("SYSTEM").PrintOut Copies:=1, Collate:=True, ActivePrinter:="Olivetti IBM X24 (LPT1)" 'Sheets("SYSTEM").Range("Y8:AH8").PrintOut Copies:=1, Collate:=True, ActivePrinter:="Olivetti IBM X24 (LPT1)" End Sub

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