Codejock Forums Homepage
Forum Home Forum Home > Codejock Products > ActiveX COM > Command Bars
  New Posts New Posts RSS Feed - PrintPreview Toolbar
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

PrintPreview Toolbar

 Post Reply Post Reply
Author
Message
MetallDesign View Drop Down
Groupie
Groupie
Avatar

Joined: 23 September 2008
Location: Switzerland
Status: Offline
Points: 16
Post Options Post Options   Thanks (0) Thanks(0)   Quote MetallDesign Quote  Post ReplyReply Direct Link To This Post Topic: PrintPreview Toolbar
    Posted: 20 October 2012 at 2:44am
Hi

How to set the Commandbars Toolbar as new PrintPreview Toolbar with VB6? My Code like

    Dim Toolbar             As CommandBar
    Dim Control             As CommandBarControl
   
    CommandBarsGlobalSettings.App = App
       
    CommandBars.EnableActions
    CommandBars.DeleteAll
   
    Set Toolbar = CommandBars.Add("Standard", xtpBarTop)
    With Toolbar
        AddControl .Controls, xtpControlButton, ID_VRVIEWER_DRUCKEN, "Drucken", True, , xtpButtonIcon
        AddControl .Controls, xtpControlButton, ID_VRVIEWER_ZOOMOUT, "Zoom Out", , , xtpButtonIcon
        AddControl .Controls, xtpControlButton, ID_VRVIEWER_ZOOMIN, "Zoom In", True, , xtpButtonIcon
        AddControl .Controls, xtpControlButton, ID_VRVIEWER_LINKS, "zurück", , , xtpButtonIcon
        AddControl .Controls, xtpControlButton, ID_VRVIEWER_RECHTS, "vorwärts", , , xtpButtonIcon
        AddControl .Controls, xtpControlButton, ID_VRVIEWER_SCHLIESSEN, "Schließen", True, , xtpButtonIcon
    End With
               
    Set CommandBars.Icons = ImageManager.Icons
   
    PrintPreview.Toolbar =

Thanks and brgds

Ramon
Back to Top
MetallDesign View Drop Down
Groupie
Groupie
Avatar

Joined: 23 September 2008
Location: Switzerland
Status: Offline
Points: 16
Post Options Post Options   Thanks (0) Thanks(0)   Quote MetallDesign Quote  Post ReplyReply Direct Link To This Post Posted: 20 October 2012 at 5:54am
Thats it... but no icons shows, can't set Imagemanager to Toolbar, Any Idee?

Set Toolbar = PrintPreview.Toolbar
    With Toolbar.Controls
        .DeleteAll
        .Add xtpControlButton, ID_VRVIEWER_DRUCKEN, "Drucken", , xtpButtonIconAndCaption
        .Add xtpControlButton, ID_VRVIEWER_ZOOMOUT, "", , xtpButtonIcon
        .Add xtpControlButton, ID_VRVIEWER_ZOOMIN, "", , xtpButtonIcon
        .Add xtpControlButton, ID_VRVIEWER_LINKS, "", , xtpButtonIcon
        .Add xtpControlButton, ID_VRVIEWER_RECHTS, "", , xtpButtonIcon
        .Add xtpControlButton, ID_VRVIEWER_SCHLIESSEN, "Schließen", , xtpButtonIconAndCaption
    End With
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 12.04
Copyright ©2001-2021 Web Wiz Ltd.

This page was generated in 0.141 seconds.