M
Mia
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
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