Sub列印記數_單擊()

Range("A1").Select"[A1]是要變單元格位置

ActiveCell.FormulaR1C1=[A1]+1"1是看你要加多少,[A1]是單元格位置

ActiveWindow.SelectedSheets.PrintOutCopies:=1,Collate:=True"1是列印1份

EndSub

工具，宏，編輯器

string a

select max(djbh) into :a from bljh ;

if isnull(a) or len(a)=0 then

sle_1.text="JH000001"

else

sle_1.text="JH"+string(long(right(string(long(right(a,6))+1+1000000),6)),"000000")

end if