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: 20 May 2024 at 9:44am
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
|
|