兄弟MFC-7360&身份证双面复印&怎么操作，我照章操作之后怎么老是得到的只是证件的一个面，另一面不显示。
步骤、细节要详细点的呦，譬如机器提示“请翻面”的时候，我们是把身份证（翻面之后）放在原处还是可以放到（偏离原位置）别的位置呀？还要请教一个问题就是为什么接收到的传真显示不出对方的传真号码呀？是设置有问题吗？请行家不吝赐教为盼，先谢了。
已有1条答案
这个问题，只有我能回答你：（我敢大声说，连兄弟售后也说不出来。）　　第一步：按身份证双面复印。（放的位置要在玻璃面板的最左侧，上下居中）　　第二步：很关键的一步，一般复印身份要两面都靠在一起，要达到这个效果，你要先把身份证的反面放在远离左侧玻璃面板60厘米的地方（比如说身份证的宽度是50厘米），再按启动复印。　　第三步：等到屏幕上提示换别一面的时候，把身份证的正面再放到玻璃面板的最左侧。记住两次复印是不能放在同一个地方，而且放在玻璃板上的位置也不能重叠。　　希望能帮到你，顺便说一下，使用双面复印功能会有一个问题就是：比单面复印的要淡，这个问题我还在玩，知道了再告诉你！　　你的第二个问题，在设置里慢慢找找就有了！具体方法省略！
快速简答--编辑问题发送微博@ZOL问答堂
你好，能详细说一下兄弟7360粉仓清零的方法么？
brother mfc7360驱动下载地址
我用华硕，win7系统，怎么添加打印机（打印机是brocher的 型号mfc-7360）,在网上下载了一个去驱动，但是添
兄弟MFC-7360&身份证双面复印&怎么操作，我照章操作之后怎么老是得到的只是证件的一个面，另一面不显示。
没找到想要的答案？那就登录提问吧查看: 2960|回复: 14
&路畅科技&这个版本为什么导航没有声音呢??(问题已解决,附说明)
下载安装了坛子里的这个&路畅科技&版本,其他都正常!O文件也是用的本帖的!我是安装在摩托ME525和XT800两部手机上的,都是没有声音,其他正常但是导航的时候为什么没有声音提示啊好奇怪啊,有遇到这情况的兄弟吗-- by 会员 stone99999 ( 2:39:52)我使用同样的程序B609,路试了近10公里,导航语音正常~-- by 会员 njxyp ( 9:17:54)这位兄弟能详细说说你是怎么安装的吗没修改什么吗APK文件用的哪个
这位兄弟能详细说说你是怎么安装的吗没修改什么吗APK文件用的哪个-- by 会员 stone99999 ( 10:45:45)我是CE6.0平台,哪里要什么APK~下载-解压-拷贝-运行-OK~-- by 会员 njxyp ( 10:57:16)哈,哥们你是误会啦,我也是安装到导航仪(CE6.0)系统一起都正常!只是安装到安卓系统的手机(XT800,ME525)没有声音提示,以前安装1J08都是正常的
提示: 作者被禁止或删除 内容自动屏蔽
有声音 早上还导航一段路-- by 会员 naqu ( 8:18:41)能详细说下你的安装过程,以及手机的安卓版本嘛,谢谢我的XT800是2.1的ME525是2.2的全部没有声音,其他都正常
下载安装了坛子里的这个&路畅科技&版本,其他都正常!O文件也是用的本帖的!我是安装在摩托ME525和XT800两部手机上的,都是没有声音,其他正常但是导航的时候为什么没有声音提示啊好奇怪啊,有遇到这情况的兄弟吗-- by 会员 stone99999 ( 2:39:52)我使用同样的程序B609,路试了近10公里,导航语音正常~
莫非也是兼容问题
这位兄弟能详细说说你是怎么安装的吗没修改什么吗APK文件用的哪个-- by 会员 stone99999 ( 10:45:45)我是CE6.0平台,哪里要什么APK~下载-解压-拷贝-运行-OK~
哦,原来如此~
有声音 早上还导航一段路
好像你这两部手机都是案桌的。能运行这程序？-- by 会员 wj ( 7:17:12)运行正常,就是没声音,真是奇怪了
下载安装了坛子里的这个&路畅科技&版本,其他都正常!O文件也是用的本帖的!我是安装在摩托ME525和XT800两部手机上的,都是没有声音,其他正常但是导航的时候为什么没有声音提示啊好奇怪啊,有遇到这情况的兄弟吗-- by 会员 stone99999 ( 2:39:52)太强悍了，安卓手机能装CE的软件？？？
SCH有没有改名？
&路畅科技&这个版本为什么导航没有声音呢??(问题已解决,附说明)
下载安装了坛子里的这个&路畅科技&版本,其他都正常!O文件也是用的本帖的!我是安装在摩托ME525和XT800两部手机上的,都是没有声音,其他正常但是导航的时候为什么没有声音提示啊好奇怪啊,有遇到这情况的兄弟吗问题已解决!更换主程序以及APK文件,已在ME525和XT800上完美运行,通过路试一切正常!发出主程序以及APK文件地址,给遇到相同问题的兄弟!/file/bhaeiz2d#主程序与APK文件在压缩包中
问题已解决!更换主程序以及APK文件,已在ME525和XT800上完美运行,通过路试一切正常!发出主程序以及APK文件地址,给遇到相同问题的兄弟!/file/bhaeiz2d#主程序与APK文件在压缩包中
Powered byvc中怎样将clistctrl的内容导出成电子表格
vc中怎样将clistctrl的内容导出成电子表格
09-08-16 &匿名提问 发布
Rem 导出电子表格的函数,源于李洪根的代码[接收传过来的记录集] Public Function toexcel(objrs As ADODB.Recordset) As Boolean '********************************************************* '* 名称：ToExcel '* 功能：将ado记录集导出为电子表格 '* 用法：call toexcel(rs) '********************************************************* Dim irowcount As Integer '行数 Dim Icolcount As Integer '列数 Dim xlApp As New Excel.Application 'excel对象 Dim xlBook As Excel.Workbook '工作簿对象 Dim xlsheet As Excel.Worksheet '工作表对象 Dim xlQuery As Excel.QueryTable '用完已释放？原代码没释放，我修改之 Dim connflag As Long '原来是否连接标志[1:原来已连，0:原来未连] toexcel = False '首先赋初值为假 If conn.State = adStateOpen Then connflag = 1 Else connflag = 0 End If '如未连接则先连接 If connflag = 0 Then If Not mainmoudle.getlink Then toexcel = False '因连接不成功，故返值为假 Exit Function End If End If With objrs If .RecordCount & 1 Then MsgBox (&没有记录!&) Exit Function End If '记录总数 irowcount = .RecordCount '字段总数 Icolcount = .Fields.Count End With Set xlApp = CreateObject(&Excel.Application&) '创建excel对象 Set xlBook = Nothing '工作簿 Set xlsheet = Nothing '工作表 Set xlBook = xlApp.Workbooks().Add '添加一个工作簿 Set xlsheet = xlBook.Worksheets(&sheet1&) '工作表 'xlApp.Visible = True '意思不明白，加上没影响！ '添加查询语句，导入EXCEL数据 Set xlQuery = xlsheet.QueryTables.Add(objrs, xlsheet.Range(&a1&)) 'A1是确定起始行的位置 With xlQuery .FieldNames = True '不知何用[是否是指字段名] .RowNumbers = False '设置第一列是否显示序号 .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .savedata = True .AdjustColumnWidth = True '使用合适的列宽 .RefreshPeriod = 0 .PreserveColumnInfo = True End With xlQuery.FieldNames = True '设置是否在第一行处显示字段名 xlQuery.Refresh With xlsheet .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = &黑体& '设标题为黑体字 .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = False '不加粗 '标题字体加粗 .Range(.Cells(1, 1), .Cells(irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous '如果第一行不显示字段，则不用加一 '设表格边框样式 End With With xlsheet.PageSetup Rem 以下页面设置因其个性化太强，故不用 '.LeftHeader = && & Chr(10) & &&&&楷体_GB2312,常规&&&10公司名称：& ' & Gsmc '.CenterHeader = &&&&楷体_GB2312,常规&&公司人员情况表&&&宋体,常规&&& & Chr(10) & &&&&楷体_GB2312,常规&&&10日 期：& '.RightHeader = && & Chr(10) & &&&&楷体_GB2312,常规&&&10单位：& '.LeftFooter = &&&&楷体_GB2312,常规&&&10制表人：& '.CenterFooter = &&&&楷体_GB2312,常规&&&10制表日期：& '.RightFooter = &&&&楷体_GB2312,常规&&&10第&P页 共&N页& End With xlApp.Application.Visible = True Set xlApp = Nothing '&交还控制给Excel Set xlBook = Nothing Set xlsheet = Nothing Set xlQuery = Nothing '如果原来没有连接，本程序自建连接，则关闭时要关闭连接，如原来有连接则不管 If connflag = 0 Then If conn.State = adStateOpen Then conn.Close Set conn = Nothing End If toexcel = True End Function '主程序必须以main命名 Public Sub Main() On Error GoTo errhandler Dim strmess As String frmlogon.Show vbModal Exit Sub errhandler: strmess = &主程序启动时发生问题：& & Chr(13) & _ Err.Description MsgBox strmess, 16, &错误提示& End Sub Public Function rstoexcel(rstable As ADODB.Recordset, cexcelname As String) As Boolean '未解决关闭已打开文件，再按此文件名存贮的问题 On Error GoTo gherr 'On Error Resume Next Dim icol As Integer '列数，用于保存字段个数 Dim ijlts As Long '记录条数 Dim yesorno As Long '确认或是取消的标志 Dim AppExcel As Excel.Application '定义尚未创建 Dim BookExcel As Excel.Workbook '工作簿对象 Dim sheetexcel As Excel.Worksheet '工作表 '如果没传过来文件名则返回 If Len(cexcelname) = 0 Then Exit Function End If With rstable If .RecordCount & 1 Then MsgBox (&没有记录可供导出,该操作已经取消！&) rstoexcel = False Exit Function Else icol = .Fields.Count '求字段数 ijlts = .RecordCount '求记录数 End If End With If Dir$(cexcelname) && && Then yesorno = MsgBox(&这个文件名已经存在，是否选择覆盖？如果该文件正处于打开状态由不能写入，请首先关闭该文件！&, vbYesNo + vbDefaultButton2 + vbQuestion) Else yesorno = 6 '如果文件名并不存存，则置标志为可导出 End If If yesorno && 6 Then rstoexcel = False Exit Function End If Set AppExcel = New Excel.Application '创建excel对象 'AppExcel.Visible = False '什么用处？ Set BookExcel = AppExcel.Workbooks.Add '添加工作簿 Set sheetexcel = BookExcel.Worksheets(&sheet1&) '添加工作表 ' AppExcel.Worksheets(1).Name = &工作表一& '在Text1中输入表名 For icol = 0 To rstable.Fields.Count - 1 AppExcel.Worksheets(1).Cells(1, icol + 1).Value = rstable.Fields(icol).Name Next '由于第一行是字段，故从第二行开始复制记录 AppExcel.Worksheets(1).Range(&A2&).CopyFromRecordset rstable With sheetexcel '.Range(.Cells(1, 1), .Cells(1, icol)).Font.Name = &黑体& '设标题为黑体字 .Range(.Cells(1, 1), .Cells(1, icol)).Font.Bold = False '不加粗 '标题字体加粗 .Range(.Cells(1, 1), .Cells(ijlts + 1, icol)).Borders.LineStyle = xlContinuous '如果第一行不显示字段，则不用加一 '设表格边框样式 End With BookExcel.SaveAs (cexcelname) 'MsgBox (&该文件名已经存在，不能导出，否则将覆盖,请给出新的名称&) 'rstoexcel = False ' Exit Function ' Set BookExcel = AppExcel.Workbooks.Open(ExcelFileName) ' AppExcel.Worksheets(1).Name = &zgh2 table& '在Text1中输入表名 ' AppExcel.Worksheets(1).Range(&A70&).CopyFromRecordset rsTable ' BookExcel.SaveAs (ExcelFileName) AppExcel.Quit Set sheetexcel = Nothing Set BookExcel = Nothing Set AppExcel = Nothing rstoexcel = True Exit Function gherr: 'MsgBox &电子表格导出失败，请检查该文件是否处理打开状态，错误信息如下：& & Chr(13) & Err.Number & &,& & Err.Description 'MsgBox &由于未知原因，导出失败！&, vbQuestion rstoexcel = False End Function Public Sub getconn() '获取连接子程序,在主窗体的load事件中调用该函数 '如果不处于连接状态，则进行连接 On Error GoTo gherr If conn.State && adStateOpen Then With conn .ConnectionString = connstring .ConnectionTimeout = 6 .Open '连接 End With End If Exit Sub gherr: MsgBox Err.Description End Sub Public Function getlink() As Boolean '连接数据库，正常返回真 '如果不处于连接状态，则进行连接 'conn是全局对象 On Error GoTo gherr If conn.State && adStateOpen Then With conn .ConnectionString = connstring .ConnectionTimeout = 6 .Open '连接 End With End If If conn.State = adStateOpen Then getlink = True Else getlink = False End If Exit Function gherr: getlink = False MsgBox Err.Description End Function Public Function getconnobj() As ADODB.Connection '获取连接子程序,暂不使用该模块 Dim connobj As ADODB.Connection Set connobj = New ADODB.Connection Dim connstr As String connstr = &driver={sql server};server=database=uid=pwd=7006& 'connstr = &driver={sql server};server=(local);database=uid=pwd=7006& With connobj .ConnectionString = connstr .ConnectionTimeout = 6 .Open '连接 End With Set getconnobj = connobj 'Set connobj = Nothing End Function Rem 导出电子表格的函数,源于李洪根的代码 Public Function ExportToExcel(stropen As String) '********************************************************* '* 名称：exportToExcel '* 功能：导出数据到EXCEL '* 用法：exportToExcel(sql查询字符串) '********************************************************* Dim Rs_Data As New ADODB.Recordset '定义记录集对象，用完已释放？原代码没释放，我修改之 Dim irowcount As Integer '行数 Dim Icolcount As Integer '列数 Dim xlApp As New Excel.Application 'excel对象 Dim xlBook As Excel.Workbook '工作簿对象 Dim xlsheet As Excel.Worksheet '工作表对象 Dim xlQuery As Excel.QueryTable '用完已释放？原代码没释放，我修改之 If Not mainmoudle.getlink Then Exit Function End If With Rs_Data '记录集对象 If .State = adStateOpen Then .Close '如果记录集处于打开状态，则先关闭它 End If .ActiveConnection = conn '连接 .CursorLocation = adUseClient '本地游标 .CursorType = adOpenStatic '静态游标 .LockType = adLockReadOnly '只读 .Source = stropen '通过函数传过来的字符串 .Open End With With Rs_Data If .RecordCount & 1 Then MsgBox (&没有记录!&) Exit Function End If '记录总数 irowcount = .RecordCount '字段总数 Icolcount = .Fields.Count End With Set xlApp = CreateObject(&Excel.Application&) '创建excel对象 Set xlBook = Nothing '工作簿 Set xlsheet = Nothing '工作表 Set xlBook = xlApp.Workbooks().Add '添加一个工作簿 Set xlsheet = xlBook.Worksheets(&sheet1&) '工作表 'xlApp.Visible = True '意思不明白，加上没影响！ '添加查询语句，导入EXCEL数据 Set xlQuery = xlsheet.QueryTables.Add(Rs_Data, xlsheet.Range(&a1&)) 'A1是确定起始行的位置 With xlQuery .FieldNames = True '不知何用[是否是指字段名] .RowNumbers = False '设置第一列是否显示序号 .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = True .savedata = True .AdjustColumnWidth = True '使用合适的列宽 .RefreshPeriod = 0 .PreserveColumnInfo = True End With xlQuery.FieldNames = True '设置是否在第一行处显示字段名 xlQuery.Refresh With xlsheet .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = &黑体& '设标题为黑体字 .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = False '不加粗 '标题字体加粗 .Range(.Cells(1, 1), .Cells(irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous '如果第一行不显示字段，则不用加一 '设表格边框样式 End With With xlsheet.PageSetup Rem 以下页面设置因其个性化太强，故不用 '.LeftHeader = && & Chr(10) & &&&&楷体_GB2312,常规&&&10公司名称：& ' & Gsmc '.CenterHeader = &&&&楷体_GB2312,常规&&公司人员情况表&&&宋体,常规&&& & Chr(10) & &&&&楷体_GB2312,常规&&&10日 期：& '.RightHeader = && & Chr(10) & &&&&楷体_GB2312,常规&&&10单位：& '.LeftFooter = &&&&楷体_GB2312,常规&&&10制表人：& '.CenterFooter = &&&&楷体_GB2312,常规&&&10制表日期：& '.RightFooter = &&&&楷体_GB2312,常规&&&10第&P页 共&N页& End With xlApp.Application.Visible = True Set xlApp = Nothing '&交还控制给Excel Set xlBook = Nothing Set xlsheet = Nothing Set xlQuery = Nothing Rs_Data.Close Set Rs_Data = Nothing End Function Rem 导出电子表格excel的自定义过程 '接收参数：查询字符串，电子表格名 Public Sub ghexcel(stropen As String, cexcelname As String) On Error GoTo gherr If Len(stropen) = 0 Or Len(cexcelname) = 0 Then MsgBox (&没有可导出数据信息或没有指定文件名，导出操作已取消&) Exit Sub End If Dim icol As Integer '列数，用于保存字段个数 Dim rstable As New ADODB.Recordset Dim ijlts As Long '记录条数 Dim AppExcel As Excel.Application '定义尚未创建 Dim BookExcel As Excel.Workbook '工作簿对象 Dim sheetexcel As Excel.Worksheet '工作表 If Not mainmoudle.getlink Then Exit Sub End If With rstable '记录集对象 If .State = adStateOpen Then .Close '如果记录集处于打开状态，则先关闭它 End If .ActiveConnection = conn '连接 .CursorLocation = adUseClient '本地游标 .CursorType = adOpenStatic '静态游标 .LockType = adLockReadOnly '只读 .Source = stropen '通过参数传过来的字符串 .Open End With With rstable If .RecordCount & 1 Then MsgBox (&没有记录,导出操作已被取消！&) Exit Sub End If '记录总数 'Irowcount = .RecordCount '字段总数 icol = .Fields.Count '求出字段数 ijlts = .RecordCount End With ' Set AppExcel = CreateObject(&Excel.Application&) '这句起何作用？ If Dir$(cexcelname) = && Then Set AppExcel = New Excel.Application '创建excel对象 AppExcel.Visible = False '什么用处？ Set BookExcel = AppExcel.Workbooks.Add '添加工作表 Set sheetexcel = BookExcel.Worksheets(&sheet1&) ' AppExcel.Worksheets(1).Name = &工作表一& '在Text1中输入表名 For icol = 0 To rstable.Fields.Count - 1 AppExcel.Worksheets(1).Cells(1, icol + 1).Value = rstable.Fields(icol).Name Next AppExcel.Worksheets(1).Range(&A2&).CopyFromRecordset rstable With sheetexcel .Range(.Cells(1, 1), .Cells(1, 5)).Font.Name = &黑体& '设标题为黑体字 .Range(.Cells(1, 1), .Cells(1, 5)).Font.Bold = False '不加粗 '标题字体加粗 .Range(.Cells(1, 1), .Cells(ijlts + 1, icol)).Borders.LineStyle = xlContinuous '如果第一行不显示字段，则不用加一 '设表格边框样式 End With '以下一句用法是正确的 'sheetexcel.Range(sheetexcel.Cells(3, 1), sheetexcel.Cells(3.3)).Font.Size = 120 BookExcel.SaveAs (cexcelname) Else MsgBox (&该文件名已经存在，不能导出，否则将覆盖,请给出新的名称&) Exit Sub ' Set BookExcel = AppExcel.Workbooks.Open(ExcelFileName) ' AppExcel.Worksheets(1).Name = &zgh2 table& '在Text1中输入表名 ' AppExcel.Worksheets(1).Range(&A70&).CopyFromRecordset rsTable ' BookExcel.SaveAs (ExcelFileName) End If AppExcel.Quit '这一句起何作用？ Set sheetexcel = Nothing Set BookExcel = Nothing Set AppExcel = Nothing rstable.Close Set rstable = Nothing MsgBox &电子表格导出操作顺利完成！& Exit Sub gherr: MsgBox Err.Number & &,& & Err.Description End Sub
请登录后再发表评论!access的显示数据库窗口被取消了怎么办
不小小取消的启动里的显示数据库窗口；显示窗体/页那里又没写，打开的时候是空白的。谁有办法打开文件的。。。。
09-12-01 &匿名提问 发布
用VB建立Access数据库结构Private Sub Command1_Click() On Error GoTo Err100 '定义表与字段 Dim DefDatabase As Database Dim DefTable As TableDef, DefField As Field Set DefDatabase = Workspaces(0).OpenDatabase(App.Path & &\vbeden.mdb&, 0, False) Set DefTable = DefDatabase.CreateTableDef(&VB编程&) 'dbBinary = 9 'dbBoolean = 1 'dbByte = 2 'dbChar=18 'dbDate=8 'dbInteger=3 'dbLong=4 'dbMemo=12 'dbText=10 '建立Name字段为8个字符型 Set DefField = DefTable.CreateField(&Name&, dbText, 8) DefTable.Fields.Append DefField Set DefField = DefTable.CreateField(&Sex&, dbText, 2) DefTable.Fields.Append DefField '该字段允许为空 DefField.AllowZeroLength = True '建立Age字段为3个的常整型 Set DefField = DefTable.CreateField(&Age&, dbInteger, 3) '字段追加 DefTable.Fields.Append DefField '表追加 DefDatabase.TableDefs.Append DefTable MsgBox & 数据库建立完成！&, vbInformation Exit Sub Err100: MsgBox &对不起，不能建立表。请先再建表前建立VBEden数据库？ &, vbCritical End Sub Private Sub cmdCreate_Click() On Error GoTo Err100 '建立名为 VBEDEN 的数据库 CreateDatabase &VB-CODE&, dbLangGeneral MsgBox &数据库建立完成！ &, vbInformation Exit Sub Err100: MsgBox &不能建立数据库! & & vbCrLf & vbCrLf & Err.Description, vbInformation End Sub 建立数据库后，一般用ADO的技术来实现数据操作是比较好的办法。引用微软的ADO组件，里面两个对象一个是连接对象用来连接数据库。另一个记录集对象可以操作数据库。详细的使用请买本书好好看吧，不是几句话可以说清的。 楼上的方法需要引用access对象吧 用VB建数据库打开VB后选&外接程序&的第一项这时打开了一个新的窗体选&文件&中的&新建&就可以选你要建什么数据库了如:access等建好数据库后就可以建表了,在表中添加字段就可以了.
请登录后再发表评论!