vb打印功能

ini配置的一部分DimretAsLongDimbuffAsStringbuff=String(255,0)ret=GetPrivateProfileString("list","drive1","drive1",buff,256,App.Path&"\"&"printer.ini")Drive1.Drive=buffret=GetPrivateProfileString("list","dir1","dir1",buff