I need to make sure it prints the same ALL the time, regardless of what workstation it's on. I am hoping someone can add to my VBA code, and force the print to ONLY print that specific print area, and make it always fit onto 1 page only - regardless of what settings are on the users computer. Print area references cell range = B2:G26 I am now thinking, the PRINT AREA & PRINT TO ONE PAGE - needs to be coded into VBA, regardless of what the print settings are of the workstation. One solution is to change the Size from 8.5 X 11 to 8.5 X 14, but I do not wish to print legal size. Using Page Layout -> Remove Page Break (or alternatively Reset All Page Breaks) does not solve the issue. I have setup the print area (not via code) - and set it so that it always prints to 1 page (not via code).īut I noticed printing this on other workstations - sometimes it print correctly, and other times it didn't. When doing a Page Break Preview, there a a page break for all cells, so the print option is set to print a page per cell. Option Explicit Sub Pallet_Tag_PrintSelector() Dim PrintSelection As Integer Dim AllowButtonActions As Boolean Dim DisplayMsg As String ' Get TRUE or FALSE value from Defined Name 'AllowButtonActions' AllowButtonActions = Range('AllowButtonActions').Value ' Test the AllowButtonActions value to determine if the Proc should continue If Not AllowButtonActions Then DisplayMsg = MsgBox('Printing has been disabled, until you fill in all required cells.', vbOKOnly, 'Printing Disabled') Exit Sub End If PrintSelection = Range('PrintSelection').Value If PrintSelection = 0 Then Call Pallet_Tag_PrintAll Else 'MsgBox PrintSelection ThisWorkbook.Worksheets('Preview').PrintOut End If Range('PrintSelection').Value = '' End Sub Sub Pallet_Tag_PrintAll() Dim i As Integer Dim palletCount As Integer Dim PrintSelection As Integer palletCount = Range('TotalPallets').Value For i = 1 To palletCount Range('PrintSelection').Value = i 'MsgBox PrintSelection ThisWorkbook.Worksheets('Preview').PrintOut Next 'i Range('PrintSelection').Value = '' End SubĪ problem I have noticed, is that it's not always printing the correct range. I am currently using this code for printing.

Excel set print area to one page