Arşiv Adı Seçilen Yazıcıdan Çıktı Alma

aeGNoR · 6 Nis 2021

Bu kod ile inputbox'a adını yazdığımız yazıcıdan çıktı alabiliyoruz.
Ayrıca "Bilgisayarda bulunan yazıcıları listeleme" başlığındaki kod ile mevcut kodumuzu ihtiyacımıza göre entegre ederek inpubox'a yazıcı adını girmek yerine dilediğimiz bir yerden seçim yaparak da yazıcıdan çıktı alabiliriz.

NOT: Mevcut kod(lar) kendi ihtiyaçlarımı karşılamak üzere yazıldığı için, kodu alıp kullanacak kişilerin sistemlerinde hatalı çalışabilir ya da hiç çalışmayabilir. Yüksek ihtimalle kendi ihtiyaçlarınıza göre revize etmeniz gerekebilir.

C++:

Public Sub Yazdir()

    Dim adet As Integer
    Dim YaziciAdi As String
    Dim i As Integer
    Dim z As String
    Dim YaziciYolu As String

    YaziciAdi = Inputbox("Lütfen çıktı almak istediğiniz yazıcı adını giriniz.", "Yazıcı")
    
    For i = 1 To 50
        On Error GoTo 10:
        If i < 10 Then
            Application.ActivePrinter = "Ne0" & i & ": üzerindeki " & YaziciAdi
            z = "0" & i
            YaziciYolu = Application.ActivePrinter
            Exit For
        ElseIf i > 9 Then
            Application.ActivePrinter = "Ne" & i & ": üzerindeki " & YaziciAdi
            YaziciYolu = Application.ActivePrinter
            z = i
            Exit For
        End If
10:
        Err.Clear
        On Error GoTo -1
    Next i
    
    adet = InputBox("Yazdırılacak miktarı giriniz.", "Yazdırılacak Adet")
    

    Range("yazdirma_alani").PrintOut Copies:=adet, ActivePrinter:="Ne" & z & ": üzerindeki " & YaziciAdi, Collate:=False

Foruma hoş geldin 👋 Ziyaretçi

Arşiv Adı Seçilen Yazıcıdan Çıktı Alma

aeGNoR