Combobox Print Macro - Value in Combobox won't update

[mweb23]

I have a command button which I want to change the value in the Combobox then print. I only have 2 regions (USA, Intl). The problem is that the combobox value updates, but the text within the combobox does not.

Here's what I have:

Sub PrintLines()
With Sheet1.Combobox4
.Value = "USA"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End With

With Sheet1.Combobox4
.Value = "International"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End With
End Sub

The combobox is within the print range, but when the value changes to "International" the numbers in the report update (all vlookups off the linked cell "M4") , but the text within the combobox still says "USA."

How do I get the text within the combobox to update also?

Thanks.

 

[Datsmart]

Try moving your Print Commands outside your With statements:

Sub PrintLines()
With ActiveSheet.ComboBox4
    .Value = "USA"
End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
    'Pause to allow printing to begin
    Application.Wait (Now + TimeValue("00:00:02"))

With ActiveSheet.ComboBox4
    .Value = "International"
End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Also a slight pause between print commands allows screen updates to occur.

 

[mweb23]

Thanks for the reply, but no luck. The combobox still reads "USA" both times. I had tried putting a application.screenupdating = True earlier, but that didn't work either. I changed the time I waited to 20 seconds and still nothing.

 

[Datsmart]

Try adding another pause between the International statement and the second PrintOut.

Sub PrintLines()
With ActiveSheet.ComboBox4
    .Value = "USA"
End With

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    
    'Pause to allow printing to begin
    Application.Wait (Now + TimeValue("00:00:02"))

With ActiveSheet.ComboBox4
    .Value = "International"
End With

Application.Wait (Now + TimeValue("00:00:02"))

ActiveSheet.PrintOut Copies:=1, Collate:=True

End Sub

You stated in your first post that the ComboBox did not change to "International", is that still the case?

 

[mweb23]

Thanks John. Unfortunately, the combobox still reads "USA" on both printouts.

 

[mweb23]

FYI...if it's an activeX combobox (like mine is), you need to activate the combobox to get it to update. So the code will look like this:

Sub PrintLines()
With Sheet1.Combobox4
.Value = SheetName.Cells(x,y).Value
.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End With

With Sheet1.Combobox4
.Value = SheetName.Cells(x,y).Value
.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End With
End Sub

 

[Datsmart]

The code you posted does not show a change of value for ComboBox4.
Both ".Value" lines show "SheetName.Cells(x,y).Value".
Whatever x and y values are is not in the code.