If I print, It will not save correctly. HELP!!!

marsh916 · Dec 9, 2018

Not exactly sure how or why this is going on. We switched out our computer and upgraded Office 2010 with Office Professional Plus 2016. Now our training form isn't working correctly. If we print the form, it doesn't save correctly. Here is the VBA that I am using:

Code:

    '   Print the Training Form
        ans = MsgBox("Do you want to Print the current Training Form?", vbQuestion + vbYesNoCancel, "Print Training Form?")
            If ans = vbYes Then
                wsSource.PrintOut
            End If
            
    '   Save the Training Form
        ans = MsgBox("Do you want to Save the current Training Form?", vbQuestion + vbYesNoCancel, "Save Training Form?")
            If ans = vbYes Then
                GSAFNam
            End If
            
    '   Clear the Training Form?
        ans = MsgBox("Do you want to clear the current Training Form details?", vbQuestion + vbYesNoCancel, "Clear Training Form?")
            If ans = vbYes Then
                wsSource.Range("rng_ClearForm").Value = ""
            Else
                Exit Sub
            End If
    Application.ScreenUpdating = True
    
End Sub

If I do not print the form, it saves it correctly and all is good. I can go in and print it later without issue. But if I do print the form, it saves it in a totally different format. What am I missing????

Kamolga · Dec 9, 2018

The fact tat jumping the step makes it work, what about 2 variables?

Code:

    '   Print the Training Form
        ans = MsgBox("Do you want to Print the current Training Form?", vbQuestion + vbYesNoCancel, "Print Training Form?")
            If ans = vbYes Then
                wsSource.PrintOut
            End If
            
    '   Save the Training Form
        ans1 = MsgBox("Do you want to Save the current Training Form?", vbQuestion + vbYesNoCancel, "Save Training Form?")
            If ans1 = vbYes Then
                GSAFNam
            End If
            
    '   Clear the Training Form?
        ans2 = MsgBox("Do you want to clear the current Training Form details?", vbQuestion + vbYesNoCancel, "Clear Training Form?")
            If ans2 = vbYes Then
                wsSource.Range("rng_ClearForm").Value = ""
            Else
                Exit Sub
            End If [COLOR=#333333]    Application.ScreenUpdating = True[/COLOR]

If you don't clear te form, you don't set screenupdating to true, if this is te real end of te sub, there is no point for this "else" I believe

marsh916 · Dec 10, 2018

That did not work. The form has been working correctly for over 2 years. But once we switched to the new operating system, it quit.

If I print, It will not save correctly. HELP!!!

marsh916

New Member

Excel Facts

Kamolga

Well-known Member

marsh916

New Member

Similar threads

Forum statistics

Share this page

If I print, It will not save correctly. HELP!!!

marsh916

New Member

Excel Facts

Kamolga

Well-known Member

marsh916

New Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock