Direk yazıcıdan çıktı almak.

[helluri]

Arkadaşlar,

Onay ekranı çıkmadan standart tanımlı yazıcıdan otomatik çıktı almak istiyorum.Aşağıdaki kodu yazdım. Her seferinde OK tuşuna basmam gerekiyor. Bunu engellemenin bir yolu var mıdır?


Sub Macro1()
'
' Macro1 Macro
'

'
act = ActiveWorkbook.Name
Windows("DOKUM CIKAR 2010.xls").Activate
Rows("2:1000").ClearContents
Windows(act).Activate
Range("C5:E1000").Select
Selection.Copy
Windows("DOKUM CIKAR 2010.xls").Activate
Range("A2").Select
ActiveSheet.Paste
Rows("2:2").Select
Selection.Copy
Rows("3:1000").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
For I = 2 To 1000
x = Cells(I, 1).Value
If x <> "" Then
ActiveSheet.Range("$A$1:$D$1000").AutoFilter Field:=1, Criteria1:=x
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Selection.ClearContents
End If
Next
End Sub

 

[turk-x]

S.A.

ActiveWindow.SelectedSheets.PrintOut Copies:=1

kodunu kullanman yeterli

 

[helluri]

teşekkür ederim.