Sorgu için arama sonuçları: Application.ActivePrinter

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

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

...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 objShell Set objShell =...

Sub yazdir() Adet = Application.InputBox("Kaç Takım İçin Yazdırmak İstiyorsunuz?", "Çıktı Adeti", 1) If Adet = False Then Exit Sub If Not IsNumeric(Adet) Then GoTo 10 If Adet > 0 Then Onay = MsgBox(Adet & " Takım için yazdırılacak. Onaylıyor musunuz?", vbExclamation +...

Üstadlar Merhaba; Aşağıdaki kod ile etiket çıktısı almaktayım. H6 hücresi toplam etiket sayısını F6 hücresi Etiketin o anki numarasını göstermekte. Ve makro ile çıktıya gönderirken her çıktıdan sonra F6 sayısı +1 artarak toplam sayısına ulaşıncaya kadar (H6) etiket basmakta. Yani etiket çıkış...

...yazıcı adını B1 hücresine yazar. Sub Printer_Setup() Application.Dialogs(xlDialogPrinterSetup).Show Range("B1") = Application.ActivePrinter End Sub Sonrasında edindiğiniz yazıcı adını kendi kodunuza entegre ediniz. Bold bölümü revize edersiniz. Yazıcı adını yazdığınızda sonunda...

Merhabalar arkadaşlar aşağıdaki kod ile çıktı aldığım buton ile aynı zamanda mail göndermek istiyorum ancak çıktıyı veriyor, maili göndermiyor. Sizden ricam Nerde hata yapıyorum bi bakabilir misiniz. Yardımlarınız için teşekkür ederim. Sub MailGonder() Dim OutApp As Object, Outmail As Object...

Resimdeki gibi bir hata aldım -dosya adı doğru -bulunduğu konum doğru Dosyayı da ekledim. Sub MailGonder() Dim OutApp As Object, Outmail As Object Set OutApp = CreateObject("Outlook.Application") Set Outmail = OutApp.CreateItem(0) Outmail.BodyFormat = 2 With Outmail .To =...

Siz işi biraz karıştırmışsınız. Kodları aşağıdaki gibi bir Module içine ekleyin. Auto _open prosedürünü de kaldırın. Sub MailGonder() Dim OutApp As Object, Outmail As Object Set OutApp = CreateObject("Outlook.Application") Set Outmail = OutApp.CreateItem(0) Outmail.BodyFormat = 2 With Outmail...

kodu bu şekilde düzeltmeye çalıştım ama nerde hata yapıyorum. Ne yazıyor ne de mail gönderiyor? Sub SuzYaz() Private Sub Workbook_BeforePrint(Cancel As Boolean) Sub Auto_Open() Application.OnTime TimeValue("12:18:00"), "MailGonder" End Sub Sub MailGonder() Dim OutApp As Object, Outmail As...

Teşekkür ederim. Pazartesi şirketten yazıcı ortamından deneyip gelişmeleri paylaşacağım.

Öncelikle belirteyim, kodlara hakim olmadan böyle bir yapı oluşturduğunuz için sizi tebrike etmek lazım. BeforePrint olayını kullanmadan sizin daha önce belirlediğiniz SurYaz kodu sonuna MailGonder başlığını ekledim. Tabii ki MailGonder kodunu module ekleminiz gerekmektedir. Sub SuzYaz()...

...YAZDIR butonuna tıklayın, daha sonra bir yazıcı seçin (ben önce PDF ile denedim) yazdır deyin. Makroyu durdurun. Sub Makro1() Application.ActivePrinter = "Ne01: üzerindeki Microsoft Print to PDF " ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End Sub verdiği kod bu...