Yazdırma Makrosu Acil!!!

[DeViaNce]

Yazdırma Makrosu

yapmak istediğim örn: a1 hücresi 1 ise aşağıdaki kodu calıstırsın 2 ise

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

2 ise

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True

İlginiz için Teşekkür ederim

 

[Recep İpek]

Sizin söylediğinizi aşağıdaki şekilde formüle edebiliriz.

Sub Yazdır()
If [a1]=1 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ElseIf [a1]=2 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
End If
End Sub

 

[hamitcan]

Aşağıdaki makroyu inceleyin...

Sub PRINTT()
If [A1] = 1 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
ElseIf [A1] = 2 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
End If
End Sub

 

[Seyit Tiken]

Alternatif :

Private Sub ComboBox1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=[A1]
ComboBox1.Value = "YAZDIR"
End Sub