Prining with features (staples)
 

Hello,

I´m trying to program my printing function to chose staple but I don´t
know how to do it. I also want to print on both sides.

Can any one help me? I´l be wery grateful!

BR
Mia


My code so fas is (It´s a loop)


Sub Spara()
'
' Spara Makro
' Makrot inspelat 2006-11-28 av Mia
'
Dim Start As Integer
Dim Stopp As Integer
Dim SkrivUt As String
Sheets("Kunddata").Select
Start = Range("C10").Value
Stopp = Range("C11").Value

For i = Start To Stopp
Sheets("Kunddata").Select
Range("D12").Value = i
SkrivUt = Range("D12").Value
If SkrivUt = "S" Then

Sheets("Faktura").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next

End Sub
Sub Skrivfaktura()
'
' Skriv Makro
' Makrot inspelat 2006-11-28 av Mia


Dim Start As Integer
Dim Stopp As Integer
Dim SkrivUt As String
Sheets("Kunddata").Select
Start = Range("C10").Value
Stopp = Range("C11").Value

For i = Start To Stopp
Sheets("Kunddata").Select
Range("C12").Value = i
SkrivUt = Range("F12").Value
If SkrivUt = "S" Then

Sheets("Faktura").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Next
Sheets("Kunddata").Select
End Sub