Stop button flicker going from Print Preview to a sheet.

[leaning]

Hello!

I made this quick labelmaker. The data is on the Data sheet, and on the Form sheet, the user figures out what data (or blank) goes on each label (labels may be duplicated), and then hits a button which brings up the Print Preview/Print of the hidden sheet named Printer.

The issue I am having is when it goes from Print Preview back to the Form sheet, the buttons appear and it's not smooth. If anyone can improve the code, i'd appreciate it. The pw is "label".

Thanks!
Regards,
leaning

[Winon]

Hello leaning,

I cannot replicate your "Problem". It might have to do with your available RAM.

You may want to try the Modified Code for the Userform as below:

Option Explicit
Sub PrintForms()
Dim curVis As Long
Dim sh As Worksheet
Set sh = ActiveWorkbook.Sheets("Printer")
ThisWorkbook.Unprotect Password:="label"
Application.ScreenUpdating = False

With sh
curVis = .Visible
.Visible = xlSheetVisible
.PrintPreview
.Visible = curVis
End With
Worksheets("Form").Activate
ThisWorkbook.Protect Password:="label"
Application.ScreenUpdating = True
End Sub
Sub EditData()
    
   Application.ScreenUpdating = False
    Worksheets("Data").Activate
    Range("B2").Select
  Application.ScreenUpdating = True
  
End Sub
Sub ReturnToForm()
  Application.ScreenUpdating = False
    Worksheets("Form").Activate
    Range("B2").Select
  Application.ScreenUpdating = True
  
End Sub

Regards.

[leaning]

Nope. Same thing on my end, even with your modified code. I click "Print Labels" and then the Print Preview box pops up. I click Close Print Preview, and it goes back to the Form sheet, but the buttons are there, then disappear, then come back.
Maybe because Activate is not the best way to make sure it always comes back to the Form sheet after the Print Preview (instead of the hidden Printer sheet)?

It works as-is, but it's just a thing.

[Logit]

.
Does editing the following make a difference ? I've tried saving the changes here to test, but I get a warning
about macros preventing the save ...

Sub EditData()
Application.ScreenUpdating = False

    Worksheets("Data").Activate
    Range("B2").Select
Application.ScreenUpdating = True

End Sub

Sub ReturnToForm()
Application.ScreenUpdating = False

    Worksheets("Form").Activate
    Range("B2").Select
Application.ScreenUpdating = True

End Sub

[davesexcel]

Application.ScreenUpdating = False is in the wrong spot.

I can see movement in the button when you exit print preview. That would be the button finishing being pressed.

The screen is moving from one window to another, it needs to catchup.

If you placed a shape on the sheet, and assigning the macro to the shape, the shape would not have a pressing effect.

Also when you exit the print preview, you don't have to activate the sheet again as it is already the active sheet.

[leaning]

All,

I appreciate the discussion. I started typing in example data and it was creating errors. I was making this too hard. The data is concatenated and then that is used for the data validation list. So now I just LEFTed and RIGHTed that value for the labels. Easy. So here is the newest version which is a way smaller filesize. It still has that behavior, though, where you close Print Preview and the buttons disappear and then reappear. Davesexcel, since you can see it too, what do you recommend with this new version?

[davesexcel]

I would still refer to post #5,

Adjusting your data had nothing to do with exiting the print preview.

[leaning]

I understand. I remed out the Activate line, but when I close Print Preview, it goes to the Data sheet not the Form sheet as needed. So that line is needed (or something similar) to send it to Form.

Also, you said that the ScreenUpdating False is in the wrong place. Where did you recommend it move to?

Sub PrintForms()
Dim curVis As Long
Dim sh As Worksheet
Set sh = ActiveWorkbook.Sheets("Printer")
ThisWorkbook.Unprotect Password:="label"
Application.ScreenUpdating = False
With sh
curVis = .Visible
.Visible = xlSheetVisible
.PrintPreview
.Visible = curVis
End With
Worksheets("Form").Activate
ThisWorkbook.Protect Password:="label"
Application.ScreenUpdating = True
End Sub

[Logit]

.
Using the suggestion in Post #4 made a difference here. Your second example workbook doesn't create the same issue with saving as it did with the first example workbook.

I notice there is a slight viewing of the PRINT PREVIEW SHEET when closing it. Here it appears as though the PRINT PREVIEW SHEET disappears from the edges of the page
and works inward just slightly before the entire sheet is no longer viewable. Is this the flicker you are referring to ? If so, I'm not so certain that can be eliminated.

Anyone ?

[leaning]

Logit,

What I am seeing (with the Rev 1 workbook):

1) Open the file to the Form sheet.
2) Click Print Labels.
3) Click Close Print Preview.
4) Watch the View or Edit Data and Print Labels buttons. What I see, they disappear and then reappear. I'd like them to not go in and out like that.

[Logit]

.
Like Winon, I can't replicate that issue here. The buttons remain in view at all times.

Sorry.

What are the specs for your computer ?

[leaning]

Wierd. Dell Inspiron 5566 laptop, Intel Core i5-7200U CPU @ 2.5GHz 2.70 GHz, 8GB installed RAM.

Well, I'm happy to hear it's on my end and not on the user.


I guess I'm at the final version of this ULINE S-6743 insert card printer thing. I added validation so that the user doesn't enter a colon ( : ) into the data fields because I use that character for the dropdowns, but just that one step jumps the file size up to 10 MB, and even zipped it's too big to upload to this post.

Crazy. I hope this thread helps somebody!


Regards,
leaning

[Logit]

.
Well, it appears you computer is equipped to handle the project. Not certain what is causing the issue.

Size of file : Have you saved it as .xlsb ? That will reduce the file size significantly.

[leaning]

I didn't know about .xlsb. That's totally cool!

And thanks to that, here's the final version.

(That was a hella impressive difference, Logit. )

Regards,
leaning

[Logit]

.
Good show !