Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Macro Modification to refresh non-contiguous Cells in a Worksheet||12||38|
|drag and drop a row in excel 2010||5||44|
|Modifying VBA to exclude a single row of data when extracted to another workbook||7||16|
|Excel Index/Match issue||4||14|
Join the community of 500,000 technology professionals and ask your questions.