用VB代码将十进制小数转二进制，也说下vba自动打印

VB代码十进制小数转二进制？

一个十进制转二进制的函数

Public Function D2B(D As Integer) As String
    D2B = ""
    Do While D > 0
        D2B = D Mod 2 & D2B
        D = D \ 2
    Loop
End Function


Private Sub Form_Load()
    Me.Caption = D2B(8)
End Sub

另外的办法：

Function dToTwo(n As Integer) As String
Dim S As String
S = ""
Do While n <> 0 
    a = n Mod 2 
    n = n \ 2 
    S = Chr(48 + a) & S
Loop
dToTwo= S
End Function

表格中的vba自动打印？


一个表格中我可以做到通过变换序号改变打印区域的内容，然后想通过控件自动打印，就是我在上面输入我要打印的内容的起始序号和终止序号，然后点击按钮就会自动打印。主要是后面的打印的命令实在不会，求回答？


回答：
录制个打印的宏，稍微改造一下即可，把序号作为循环
比如如下代码

sub aa()
dim i
for i=10 to 20 '序号
'改变序号的代码写到这个位置
ActiveWindow.SelectedSheets.PrintOut Copies:=1
next
end sub