• 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.
 

kut

New Member
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.
 

kut

New Member
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

Last edited by a moderator:

vletm

Excel Ninja
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

New Member
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.
 
Top