Print Page | Close Window

PrintPreview Toolbar

Printed From: Codejock Forums
Category: Codejock Products
Forum Name: Command Bars
Forum Description: Topics Related to Codejock Command Bars
URL: http://forum.codejock.com/forum_posts.asp?TID=20240
Printed Date: 22 November 2024 at 9:28pm
Software Version: Web Wiz Forums 12.04 - http://www.webwizforums.com


Topic: PrintPreview Toolbar
Posted By: MetallDesign
Subject: PrintPreview Toolbar
Date 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



Replies:
Posted By: MetallDesign
Date 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



Print Page | Close Window

Forum Software by Web Wiz Forums® version 12.04 - http://www.webwizforums.com
Copyright ©2001-2021 Web Wiz Ltd. - https://www.webwiz.net