PrintPreview Toolbar

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   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

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
MetallDesign Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 23 September 2008 Location: Switzerland Status: Offline Points: 16	Post Options Post Reply Quote MetallDesign Report Post Thanks(0) Quote Reply 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

MetallDesign Members Profile Send Private Message Find Members Posts Add to Buddy List Groupie Joined: 23 September 2008 Location: Switzerland Status: Offline Points: 16	Post Options Post Reply Quote MetallDesign Report Post Thanks(0) Quote Reply 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