• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Assign print button without form/activex control

kut

New Member
I want to use one excel file on my TABLET (Samsung). The file has a button (Form control) assigned to respective print preview/print file. Since macro cannot run on TAB, I need to re-design the BUTTON without macro. (Even TAB doesn't support form control). Any idea.
 
The print botton will print the respective hidden file (Out of many hidden). I want to run it on TABLET, where macro are not supported.

uploading the excel file in a while.
 
The file is not being attached. earlier it was ig now I has deleted many sheets but not going. no mesage
 
Seems that You have a challenge ...
and without clear-helpful information,
seems that You should learn to live with that.
 
The macro is
Code:
'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
 

Attachments

  • Main page.png
    Main page.png
    118.6 KB · Views: 2
  • print page.png
    print page.png
    104.2 KB · Views: 1
Last edited by a moderator:
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?
 
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?
I am trying to find another way to do it, and seeking suggestions for same, if any.
There are many hidden sheets of print files, I need to preview any one based on data in front page and again hide it.
For now it was taken case by macro. Now need to do it without macro, keeping all other file hidden.
Couldn't attach file so attached images of front page, print file and vba. I am not getting any clue, so I posted here.
Thanks for guidance.
 
kut
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.
 
  • Like
Reactions: kut
Back
Top