• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sorgu için arama sonuçları: activeprinter

  1. Korhan Ayhan

    Klasör İçeriğini Toplu Yazdırma

    ...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...
  2. Korhan Ayhan

    Klasör İçeriğini Toplu Yazdırma

    ...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...
  3. Korhan Ayhan

    macro ile otomatik yazıcı seçimi

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

    macro ile otomatik yazıcı seçimi

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

    macro ile otomatik yazıcı seçimi

    Merhaba , maalesef işe yaramadı
  6. RBozkurt

    macro ile otomatik yazıcı seçimi

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

    macro ile otomatik yazıcı seçimi

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

    Excelde ayrı sayfalarda bulunan dökümleri arkalı önlü tek kağıda yazdırma

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

    Excelde ayrı sayfalarda bulunan dökümleri arkalı önlü tek kağıda yazdırma

    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"
  10. ulutanas

    Yazdır makrosu

    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
  11. Korhan Ayhan

    Klasör İçeriğini Toplu Yazdırma

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

    Klasör İçeriğini Toplu Yazdırma

    ...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...
  13. Korhan Ayhan

    İstediğim Yazıcıyı Seçip Ona Yazdırmak

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

    İstediğim Yazıcıyı Seçip Ona Yazdırmak

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

    Yazıcı seçimi

    Teşekkürler hocam
  16. ÖmerBey

    Yazıcı seçimi

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

    VBA İle Detaylı Yazdırma

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

    Çıktı alırken kaset seçimi

    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) "
  19. B

    Veri çekerken bekleme ve otomatik çalışma sorunu

    ...= 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 "...
  20. gicimi

    Klasör içerisindeki Excel dosyalarını yazdırma,

    ...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...
Geri
Üst