ник: Скорп
как работает разобрался 
Function msoShowIcon()
Const conMAX_ICON_INDEX% = 3500
Dim intLoopFirst%, intLoopSec%
Dim strMSOBarName$
Dim btn As CommandBarButton
'внешний цикл создает панели инструментов
For intLoopFirst = 1 To 3
strMSOBarName = "msoICON_BAR_" & intLoopFirst
CommandBars.Add strMSOBarName
CommandBars(strMSOBarName).Visible = True
'внутренний цикл заполняет панели кнопками
Do
Set btn = CommandBars(strMSOBarName _
).Controls.Add(msoControlButton)
With btn
.FaceId = intLoopSec
.TooltipText = CStr(intLoopSec)
End With
intLoopSec = intLoopSec + 1
If intLoopSec > conMAX_ICON_INDEX% Then
Exit Function
End If
Loop While intLoopSec Mod 1000
Next intLoopFirst
End Function
|
подключаем библиотечку и смотрим коды к той или иной кнопке..
а вот с выводом на печать помогите плиз...
нужно чтобы была возможность выбора принтера, а не сразу отправка на печать
ну чтобы окошко выбора принтера появлялось и соответственно и кол-во копий
а?