İki farklı yazıcıyı kullanmak

[ark123]

Arkadaşlar
Aşağıda kodlarını verdiğim OVAL1_TIKLAT makrosu ile yazıcıları seçiyorum ve VERİLER sayfasında D31 hücrei ile D32 hücresine yazıcı isimlerini yazdırıyorum. Sonra başka makrolarda
Application.ActivePrinter = Sheets("VERİLER").Cells(32, 4)
komutu ile Oval1_Tıklat makrosu ile yazdığım yazıcıları aktif printer haline getirerek sayfamı seçtiğim aktif yazıcıya gönderiyorum.

Sorunum VERİLER sayfasında D31 hücrei ile D32 hücresine yazdırdığım yazıcıları görmüyor ve
Application.ActivePrinter = Sheets("VERİLER").Cells(32, 4)
satırında

Run-time error '1004': Method 'ActivePrinter' of object '_Aplication' failed hatası veriyor. Oval1_tıklat makrosu ile VERİLER sayfasında D31 hücrei ile D32 hücresinde yazılı olan yazıcıyı seçtiğimde yada bilgisayarı reset ettiğimde hata vermiyor.
Nasıl düzeltirim. Saygılar



Sub Oval1_Tıklat()
Dim ONAY As Byte
ONAY = MsgBox("YAZICIYI HANGİ AMAÇLA KULLANACAKSINIZ ?" & vbCrLf & _
"(Evet) ; MAKBUZ YAZDIRMAK İÇİN." & vbCrLf & _
"(Hayır) ; KASA DEFTERİ YAZDIRMAK İÇİN." & vbCrLf & _
"(İptal) ; İşlemi iptal eder.", vbQuestion + vbYesNoCancel)
If ONAY = vbCancel Then GoTo 9974

Application.Dialogs(xlDialogPrinterSetup).Show
If ONAY = vbYes Then
Sheets("VERİLER").Cells(32, 4).Value = Application.ActivePrinter
ElseIf ONAY = vbNo Then
Sheets("VERİLER").Cells(31, 4).Value = Application.ActivePrinter

End If
9974 '
End Sub

 

[ÖmerBey]

Şu şekilde direkt yazdırmayı dener misiniz?
Ben genelde bu şekilde yapıyorum.

Sheets("Sayfa1").PrintOut ActivePrinter:=Cells(32, 4).Value