用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