- Katılım
- 28 Eylül 2010
- Mesajlar
- 75
- Excel Vers. ve Dili
- 2016 excel türkçe
- Altın Üyelik Bitiş Tarihi
- 06-04-2025
Aşağıdaki kırmızı renkteki koda kablosuz yazıcıyı nasıl ekleyebirim
Yazıcının adı Canon MX520 series Printer WS
Ya da yazıcı seçme özelliği koyabilirmiyiz.

Yazıcının adı Canon MX520 series Printer WS
Ya da yazıcı seçme özelliği koyabilirmiyiz.

Kod:
Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
Sheets("FATURA").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$36"
Application.ActivePrinter = "LPT1: üzerindeki EPSON FX Series 1 (80) "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"LPT1: üzerindeki EPSON FX Series 1 (80) ", Collate:=True
[COLOR="Red"]Sheets("İRSALYE").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$K$36"
Application.ActivePrinter = "WSD-2e40fcb8-3925-41f7-bd84-e9a2c4614be6.0068: üzerindeki Canon MX520 series Printer WS "
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"WSD-2e40fcb8-3925-41f7-bd84-e9a2c4614be6.0068: üzerindeki Canon MX520 series Printer WS ", Collate:=True[/COLOR]
MsgBox "FATURA YAZDIRILIYOR LÜTFEN BEKLEYİN"
Application.ScreenUpdating = True
End Sub
Son düzenleme: