varsayılan yazıcı

[chuwi]

merhaba arkadaşlar kendi hazırladığım ve ticari program olarak kullandığım bir proje var bunu içinde fatura bastırmak için bir bölüm var verileri sırayla yazıcıya gönderip yazıdırıyor bunu yaparken varsayılan yazıcıyı değişitiriyor(nokta vuruşlu ile)şimdi ingilizce office kurdum fakat bu makro çalışmamaya başladı yani yazıcıya göndermiyor dilden kaynaklanıyor sanırım aşağıda verdiğim kodları ingilizce office için düzenlememe yardımcı olursanızı sevinirim

Sub epsonyazdır()
Dim say As Integer
Dim yaz
say = WorksheetFunction.CountA(Worksheets("Müşteri veri tabanı").Range("B1:B65000"))
For Each yaz In Worksheets("Müşteri veri tabanı").Range("A2" & ":" & "A" & say)
If yaz = 1 Then
Worksheets("OtomatikFatura").Range("B9").Value = yaz.Offset(0, 2).Value
Worksheets("OtomatikFatura").Range("B10").Value = yaz.Offset(0, 3).Value
Worksheets("OtomatikFatura").Range("B11").Value = yaz.Offset(0, 4).Value
Worksheets("OtomatikFatura").Range("L11").Value = yaz.Offset(0, 5).Value
Worksheets("OtomatikFatura").Range("A16").Value = yaz.Offset(0, 6).Value
Worksheets("OtomatikFatura").Range("L16").Value = yaz.Offset(0, 7).Value
Worksheets("OtomatikFatura").Range("P16").Value = yaz.Offset(0, 8).Value
Worksheets("OtomatikFatura").Range("Q22").Value = yaz.Offset(0, 9).Value
Worksheets("OtomatikFatura").Range("Q23").Value = yaz.Offset(0, 10).Value
Application.ActivePrinter = "LPT1: üzerindeki EPSON LX-300+ /II"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
bitir:
MsgBox "Fatura Kesme İşlemi Bitti", vbInformation, "SeTuZe Fırın Otomasyon"
End Sub

 

[hamitcan]

dilden kaynaklanıyor sanırım aşağıda verdiğim kodları ingilizce office için düzenlememe yardımcı olursanızı sevinirim

Bence dilden kaynaklanmıyor çünkü kodlarınız düzgün görünüyor. Sanırım, başka bir sorun var.

 

[chuwi]

alakan için teşşekkür ederim hamitcan yalnız butona tıkladığımda run time error 1004 method of activeprinter _application failed hatası veriyor debug dediğimde Application.ActivePrinter = "LPT1: üzerindeki EPSON LX-300+ /II" satırını işaretliyor nerde eksiklik var bulamadım

 

[hamitcan]

Sub aktifyazıcı()
MsgBox Application.ActivePrinter
End Sub

şeklinde bir kontrol yapabilirsiniz.