Print Preview (2000 vs 2013)

[DannyDont]

I use code to perform a Print Preview. This works just fine in 2000 to 2010 (.xls). However, when this was moved to Excel 2013 (.xlsm) it no longer works as desired and in fact halts the VBA Code. I have been looking and looking for a solution but have yet to find it. Can anyone help.

Here is the code I am using.
=====
If Len(Data_File_Waycard_File_Output) > 0 Then
Windows(Data_File_Waycard_File_Output).Activate
ActiveWindow.SelectedSheets.PrintPreview
Windows("WayCardCreatorAppl" & Data_File_Waycard_Appl_Version & ".xlsm").Activate
Sheets("Welcome").Select
Else
MsgBox ("These has been no Waycard created to Preview or Print!")
End If
=====
Thanks for any help you might provide

 

[DannyDont]

How do I invoke the same Print Preview in XLSM as I do in XLS? When doing the same command structure the XLMS Version halts the code. Any ideas out there?

 

[DannyDont]

Has anyone run into this issue as well and found a fix? No one has even responded in over a year! This only occurs if there is more than one page to preview.

 

[deletedalien]

i've ran in to a LOT of issues with changing code from 2003 to 2010 apparently the VBA editor is now 64 bit or something like that, there was a KB article on the MS website about this.
but you do have to add a line of code for it to be "compatible"

 

[deletedalien]

https://msdn.microsoft.com/en-us/li...mpatibility32bit64bit_IntroducingVBA7CodeBase

 

[deletedalien]

<tbody>
[TD="class: votecell"]

​

[/TD]
[TD="class: answercell"]As the MSDN article says, use conditional compilation: it works well for me in Excel 97 through Excel 2010 32-bit & 64-bit.


<code style="margin: 0px; padding: 0px; border: 0px; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, sans-serif; white-space: inherit;"> # If VBA7 Then
Private Declare PtrSafe Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" ( Destination As Any , Source As Any , ByVal Length As Long )
# Else
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" ( Destination As Any , Source As Any , ByVal Length As Long )
# End if </code>[/TD]

</tbody>

 

[DannyDont]

Would this code be placed in the OnOpen of the Workbook or ???

 

[deletedalien]

https://msdn.microsoft.com/en-us/library/ee691831.aspx