Printing with functions (staples)

  • Thread starter Thread starter Mia
  • Start date Start date
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
 
This newsgroup is for questions about programming in Access, the database
product that's part of Office Professional.

Your code is obviously intended for Excel, so you'd be best off reposting
the question to a newsgroup related to Excel.
 
Back
Top