yes.kut
Have You set needed 'Print Area'?
Seems that You have a challenge ...
and without clear-helpful information,
seems that You should learn to live with that.
'Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Cells.Count > 1 Then Exit Sub
'If Target.Address = "$B$6" Then
' Or Target.Address = "$B$6"
' ActiveWindow.Zoom = 120
' Else
' ActiveWindow.Zoom = 100
' End If
' End Sub
Sub PrintStuff()
Dim vShts As Variant
vShts = Sheets(1).Range("L15")
If Not IsNumeric(vShts) Then
Exit Sub
Else
Select Case vShts
Case 1
Sheets("14.Print").Visible = -1
Sheets("14.Print").PrintPreview
Sheets("14.Print").Visible = 2
Case 2
Sheets("48.Print").Visible = -1
Sheets("48.Print").PrintPreview
Sheets("48.Print").Visible = 2
Case 3
Sheets("MB.Print").Visible = -1
Sheets("MB.Print").PrintPreview
Sheets("MB.Print").Visible = 2
Case 4
Sheets("MB.Print").Visible = -1
Sheets("MB.Print").PrintPreview
Sheets("MB.Print").Visible = 2
Case 5
Sheets("MB.Print").Visible = -1
Sheets("MB.Print").PrintPreview
Sheets("MB.Print").Visible = 2
Case 6
Sheets("MB.Print").Visible = -1
Sheets("MB.Print").PrintPreview
Sheets("MB.Print").Visible = 2
Case 7
Sheets("90.Print").Visible = -1
Sheets("90.Print").PrintPreview
Sheets("90.Print").Visible = 2
Case 8
Sheets("701.Print").Visible = -1
Sheets("701.Print").PrintPreview
Sheets("701.Print").Visible = 2
Case 9
Sheets("702.Print").Visible = -1
Sheets("702.Print").PrintPreview
Sheets("702.Print").Visible = 2
Case 10
Sheets("JMB.Print").Visible = -1
Sheets("JMB.Print").PrintPreview
Sheets("JMB.Print").Visible = 2
Case 11
Sheets("JMB.Print").Visible = -1
Sheets("JMB.Print").PrintPreview
Sheets("JMB.Print").Visible = 2
Case 12
Sheets("JMB.Print").Visible = -1
Sheets("JMB.Print").PrintPreview
Sheets("JMB.Print").Visible = 2
Case 13
Sheets("706.Print").Visible = -1
Sheets("706.Print").PrintPreview
Sheets("706.Print").Visible = 2
Case 14
Sheets("707.Print").Visible = -1
Sheets("707.Print").PrintPreview
Sheets("707.Print").Visible = 2
Case 15
Sheets("708.Print").Visible = -1
Sheets("708.Print").PrintPreview
Sheets("708.Print").Visible = 2
Case 16
Sheets("710.Print").Visible = -1
Sheets("710.Print").PrintPreview
Sheets("710.Print").Visible = 2
Case 17
Sheets("711.Print").Visible = -1
Sheets("711.Print").PrintPreview
Sheets("711.Print").Visible = 2
Case 18
Sheets("712.Print").Visible = -1
Sheets("712.Print").PrintPreview
Sheets("712.Print").Visible = 2
Case 19
Sheets("89.Print").Visible = -1
Sheets("89.Print").PrintPreview
Sheets("89.Print").Visible = 2
Case 20
Sheets("52.Print").Visible = -1
Sheets("52.Print").PrintPreview
Sheets("52.Print").Visible = 2
End Select
End If
Sheets("Dash").Select
End Sub
I am trying to find another way to do it, and seeking suggestions for same, if any.kut
As You also has written:
I want to run it on TABLET, where macro are not supported.
... and now, You offer some 'macro' ... why?
Please, try to think one ... two seconds again ...
and after that write again
... especially, what would You need to get?
Thanks a lotkut
If You should do it with Tablet
then Have You tried to do it 'manually' sheet-by-sheet?
or
You should do it with non-Tablet.