Merhaba,
Aşağıdaki kod ile Word sayfasını faxsa yolluyorum, fakat bu sefer de varsayılan yazıcı olarak ActiveFax kalmakta, şirket de ortak da kullanmaktayız dolayısıyla yazıcı adları farklı ,
Benim istediğim tuşa basılınca activefax sı seçip Word dosyayı yazdırıp sonradan default yazıcıya geri dönmesi
Bunu nasıl ayarlayabilirim ? tşkler
Private Sub CommandButton8_Click()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("\deneme\deneme.doc")
objWord.WordBasic.FilePrintSetup Printer:="ActiveFax"
objWord.Visible = True
objDoc.PrintOut
objWord.Quit
End Sub
Aşağıdaki kod ile Word sayfasını faxsa yolluyorum, fakat bu sefer de varsayılan yazıcı olarak ActiveFax kalmakta, şirket de ortak da kullanmaktayız dolayısıyla yazıcı adları farklı ,
Benim istediğim tuşa basılınca activefax sı seçip Word dosyayı yazdırıp sonradan default yazıcıya geri dönmesi
Bunu nasıl ayarlayabilirim ? tşkler
Private Sub CommandButton8_Click()
Dim objWord
Dim objDoc
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("\deneme\deneme.doc")
objWord.WordBasic.FilePrintSetup Printer:="ActiveFax"
objWord.Visible = True
objDoc.PrintOut
objWord.Quit
End Sub