Code From 2003 to 2010 excel not working

[realniceguy5000]

Hi, I have included the complete workbook below. Could someone please take a look at the code in this workbook and advise why it works fine in excel 2003 but in 2010 version it skips pages when it prints out.

When the workbook opens it will ask for the following:
Label Just Enter: NB
Item # Just Enter: 45829
Case Qty Just Enter : 200
Pallet Qty Just Enter : 2 or 3

After that it will print out the page depending on what number you enter in the pallet qty.

This works fine in 2003 never skips a page at all, But when I placed it on a new pc with 2010 it will skips page numbers.

Thank You, Mike

[royUK]

Works OK for me in 2010

[romperstomper]

For me too.

[MaczaQ]

on my computer works fine on XP, 2003, 2007 and 2010.

ps. column J was on my computer out of printable area so previously it create 2 pages (maybe you have similar problem regarding rows ?)

Best Regards
MaczaQ

[realniceguy5000]

Hmmm, I dont get it then.

Of coarse it could be the number they are trying to print, they are telling me now that it happens when it's 20 or more pages.

is there a way to test the output of what is printing with out printing all the copies out?

Would debug print ? work?

Thank You, Mike

[MaczaQ]

I previously change my default printer into PDF Creator, then I test it without print on printer, only create PDF documents ... consider this way..

check attached PDF result for 52th page

find three more files:
init2010.jpg - what I see when I open workbook
init 2010.pdf - print 50th page
printAreaSetup_2010.pdf - print 50th page after set up print area

BR
MaczaQ

[royUK]

Use PrintPreview instead of PrintOut for checking

[realniceguy5000]

Well, I just had the supervisor show me what he was doing when it skips...He said it happens when it;s over a 100 pages...

But also I was able to watch run it, looks like he clicked over to his email while the program was running and it skiped about 5 pages. then he cliked back to excel.

So it appears to happen when excel window is not visible. He said it takes a while to print out 100 or so tags so he was checking his email.

[realniceguy5000]

Well the only thing I could do to fix the issue was add some delay to the script and change how the screen updated,

Here is what I came up with to fix the issue. Just odd it only happends on one pc.

Anyway thanks everyone for your input...

Mike

Sub Pallets()
Dim x As Integer, dNumber As Integer
dNumber = Application.InputBox(Prompt:="Enter Total Pallets", Title:="Total Pallets ?", Type:=1)
If dNumber <> False Then
Range("F37").Value = dNumber
Calculate
For x = 1 To dNumber
Application.ScreenUpdating = False
Range("A37").Value = x
ActiveSheet.PrintOut
Application.Wait DateAdd("s", 3, Now)
Next x
End If
Application.ScreenUpdating = True

End Sub