Kod:
Sub Yazdır()
ActiveSheet.PageSetup.PrintArea = "$A$1:$AT$71"
ActiveWindow.SelectedSheets.PrintPreview
Application.ActivePrinter = "\\10.238.153.65\hp officejet 5500 series on Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\10.238.153.65\hp officejet 5500 series on Ne03:", Collate:=True
End Sub
[/code]Sub PrintSeç()
Application.Dialogs(xlDialogPrint).Show
End Sub
Kod:
birde
MyPrinter="\\10.238.153.65\hp officejet 5500 series on Ne03:"[/code]
ActiveSheet.PageSetup.PrintArea = "$A$1:$AT$71"
'ActiveWindow.SelectedSheets.PrintPreview
Application.ActivePrinter =MyPrinter
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
MyPrinter, Collate:=True
End Sub[code]
Bu kodları kendine göre ayarlaybilirsiniz.