文件名称：vb打印功能
文件大小：56KB
文件格式：EXE
更新时间：2018-06-08 03:28:59
打印
ini配置的一部分 Dim ret As Long Dim buff As String buff = String(255, 0) ret = GetPrivateProfileString("list", "drive1", "drive1", buff, 256, App.Path & "\" & "printer.ini") Drive1.Drive = buff ret = GetPrivateProfileString("list", "dir1", "dir1", buff, 256, App.Path & "\" & "printer.ini") Dir1.Path = buff ret = GetPrivateProfileString("zoom", "text1", "text1", buff, 256, App.Path & "\" & "printer.ini") Text1.Text = buff