thank you Dave.got it. "Dave Peterson" wrote: There's an added .ontime line in the WaitABit changed procedure that calls waitabit2. And WaitABit2 is the procedure where you'd print the 3rd time. peyman wrote: I'm confused.which line should I add to the "waitabit" procedure?and what's the "waitabit2"? "Dave Peterson" wrote: I'd add another

Set your default printer to a PDF writer and try then. You won't waste paper this way. On Oct 20, 9:04 pm, JLatham <HelpFrom @ Jlathamsite.com.(removethis)> wrote: Did/has anyone tried to .Repaint the form/control before the print? I know, I'm lazy AND hate burning paper, so I didn't try it myself, but I've used that in the past to get 'instant' updates to the appearance of a control

I'd add another delayed procedure in the WaitABit procedure. ... End Sub Private Sub WaitABit() Me.Range("G13:I32").Font.ColorIndex = 2 Me.PrintOut preview:=True, Copies:=1, Collate:=True 'toggle your commandbutton value here! 'and call another procedure Application.OnTime earliesttime:=Now + TimeSerial(0, 0, 1), _ procedure:="'" & ThisWorkbook.Name & "'!"

You should be clicking on CommandButton11. Is that what you meant by the "print" button? peyman wrote: hi Dave, I used your code : Option Explicit Private Sub CommandButton11_Click() Me.Range("G13:I32").Font.ColorIndex = xlAutomatic Me.PrintOut preview:=True, Copies:=1, Collate:=True If Me.OptionButton1.Value = True Then Me.OptionButton2

hi Dave, I used your code : Option Explicit Private Sub CommandButton11_Click() Me.Range("G13:I32").Font.ColorIndex = xlAutomatic Me.PrintOut preview:=True, Copies:=1, Collate:=True If Me.OptionButton1.Value = True Then Me.OptionButton2.Value = True Else Me.OptionButton1.Value = True End If Application.OnTime earliesttime:=Now + TimeSerial