导出为excel,设置页边距

2017年4月13日 开发日志, 开发笔记 评论已被关闭

Module Module1

Sub Main()
Dim hss As NPOI.HSSF.UserModel.HSSFWorkbook = Nothing
Using f = New IO.FileStream(“d:\11111.xls”, IO.FileMode.Open, IO.FileAccess.Read)
hss = New NPOI.HSSF.UserModel.HSSFWorkbook(f)
f.Close()
End Using

Dim sheet1 = hss.GetSheetAt(0)
sheet1.FitToPage = False
sheet1.PrintSetup.Landscape = True
sheet1.PrintSetup.Scale = 90
sheet1.PrintSetup.FooterMargin = 0
sheet1.PrintSetup.HeaderMargin = 0
sheet1.HorizontallyCenter = True ‘水平居中
sheet1.VerticallyCenter = True ‘垂直居中

sheet1.SetMargin(NPOI.SS.UserModel.MarginType.BottomMargin, 0.1 / 3)
sheet1.SetMargin(NPOI.SS.UserModel.MarginType.LeftMargin, 0.1 / 3)
sheet1.SetMargin(NPOI.SS.UserModel.MarginType.RightMargin, 0.1 / 3)
sheet1.SetMargin(NPOI.SS.UserModel.MarginType.TopMargin, 0.1 / 3)
Using f = New IO.FileStream(“d:\2222.xls”, IO.FileMode.Create)
hss.Write(f)
f.Close()
End Using
Dim wk As New Aspose.Cells.Workbook(“d:\11111.xls”)
Dim sh = wk.Worksheets(0)

sh.PageSetup.Orientation = Aspose.Cells.PageOrientationType.Landscape

sh.PageSetup.IsPercentScale = True
sh.PageSetup.FitToPagesWide = 1 ‘调整为一页宽
‘sh.PageSetup.FitToPagesTall = 1 ‘调整为一页高

wk.Save(“d:\2.xls”)

End Sub

End Module

新大陆hr15扫描,安装驱动时,提示Windows已找到设备的驱动程序软件,但在试图安装它时遇到错误!

2016年11月21日 电脑问题 评论已被关闭

在安装条码扫描枪,usb转串口com驱动时,始终安装不成功,归根结底的原因是系统使用的ghost版本,有些文件被精简了。

 

解决方法:

 

查看安装日志:C:\Windows\inf\setupapi.dev.log  中后的面几行,看看是否缺少了什么问题。

 

1

 

看看选中部份,显示缺少这个目录,造成安装不成功。

 

 

C:\Windows\System32\DriverStore\FileRepository\ 目录需要先获取所有权限,获取步骤:

 

首先C:\Windows\System32\DriverStore\FileRepository点击右键-属性我先获文件夹所权点安全-高级-所者接着点编辑-高级其用户或组输入选择象名称面输入用户名或者点高级-立即查
找选择用户名确定选择替换容器象所者选择我文件夹所权并
没文件夹面文件所权应用-确定我拥文件夹所权前文件夹所权属于System并属于我再点权限-编辑-添加用户名填入或者用高级-立即查找确定再点击用户名-编辑完全控制/允许打勾确定再使用象继承权限替换所代现继承权限打勾(我靠微软真**复杂句应用所文件夹文件行嘛)同前面打勾外面文件夹权限面文件夹能完全控制点应用-确定-确定-确定面文件夹想删删吧

 

 

然后从其它电脑把不存在文件拷过来即可。

 

以上是在一家全屋定制企业安装无线条码扫描枪遇到的解决方法。

 

 

 

sql按逗号拆分记录,支持不同的分隔符。

2016年10月19日 开发日志 评论已被关闭

sql按逗号拆分记录,支持不同的分隔符。

 

IF OBJECT_ID(‘[tb]’) IS NOT NULL DROP TABLE [tb]
GO
CREATE TABLE [tb]([ID] INT,[CODE1] VARCHAR(2),[CODE2] VARCHAR(8))
INSERT [tb]
SELECT 1,’AA’,’AA,BB,CC’
————–开始查询————————–
SELECT a.[ID], a.[CODE1], b.[CODE2]
FROM (
SELECT id, [CODE1], [CODE2]= CAST( ‘<x>’+ REPLACE ([CODE2], ‘,’, ‘</x><x>’)+ ‘</x>’ AS XML) FROM [tb]
) a
OUTER APPLY (
SELECT [CODE2]= N.v.value (‘.’, ‘varchar(10)’) FROM a.[CODE2].nodes (‘/x’) N( v)
) b
/*
ID CODE1 CODE2
———– —– ———-
1 AA AA
1 AA BB
1 AA CC

(3 行受影响)
*/

DataTable.Compute() 偶数判断。

2016年8月22日 开发日志 评论已被关闭

UltraComboEditor 禁用 MouseWheel

2016年8月22日 开发日志 评论已被关闭

No cached version listing for com.android.tools.build:gradle:1.0.0+ available for offline mode

2016年7月22日 开发日志 评论已被关闭

jquery input 超链接a标签 需要加上 data-ajax=”false”

2016年6月26日 jquery mobile 评论已被关闭

jquery input change事件

2016年6月26日 jquery mobile 评论已被关闭

System.Web.HttpContext.Current.Session为NULL值的问题?

2016年6月26日 jquery mobile 评论已被关闭

[原]SQLServer 2012 已成功与服务器建立连接,但是在登录前的握手期间发生错误。 (provider: SSL Provider, error: 0 – 等待的操作过时。

2015年7月22日 开发日志 评论已被关闭