自动生成PDF - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动生成PDF

共有3784人关注过本帖树形打印复制链接主题：自动生成PDF

kaituozhe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

自动生成PDF 发帖心情

Post By：2019/9/4 19:15:00 [显示全部帖子]

用高拍仪拍的图片，能不能使用本软件写代码自动生成PDF格式的文件，能不能让图片旋转

kaituozhe

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/9/4 19:24:00 [显示全部帖子]

目的是希望扫描后几张图片，把图片旋转，然后合并后生成PDF文件

kaituozhe

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/9/5 14:42:00 [显示全部帖子]

我购买的得力扫描仪，这是SDK的说明文件，我应该加载什么DLL能够实现如下分享的窗口，能够实现在设计的软件中拍照及调整照片、生成PDF文件

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41778

kaituozhe

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/9/5 14:42:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:camdll_development_guide_cn.zip

kaituozhe

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/9/6 19:11:00 [显示全部帖子]

Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")

Dim img As Image = pic.Image

Dim degree = 90

Dim ImgTarget As Bitmap

Dim alpha As Double = (degree / 180) * math.PI

Dim iWidth As Integer = img.Width * Math.Cos(alpha) + img.Height * Math.Sin(alpha)

Dim iHeight As Integer = img.Width * Math.Sin(alpha) + img.Height * Math.Cos(alpha)

ImgTarget = New Bitmap(iWidth, iHeight, Drawing.Imaging.PixelFormat.Format24bppRgb)

Dim g As Graphics

g = Graphics.FromImage(ImgTarget)

g.TranslateTransform(img.Height * Math.Sin(alpha), 0)

g.RotateTransform(degree)

'ImgTarget.MakeTransparent(ImgTarget.GetPixel(1, 1))

g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height))

pic.Image = ImgTarget

以上3楼链接中给的代码，我是想把代码写入文件监视器FileCreated中，在创建图片时直接旋转，然后再进行把图片添加到专业报表中，专业报表不预览直接生成PDF文档存入指定位置。首先图片不在图片浏览器中，直接在创建图片时就旋转

kaituozhe

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/9/6 19:16:00 [显示全部帖子]

在专业报表的设计中图片可以旋转吗？

kaituozhe

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2019/9/6 20:21:00 [显示全部帖子]

Dim bmp As New bitmap(e.FullPath)
bmp.RotateFlip(RotateFlipType.Rotate90FlipNone)
bmp.save(e.FullPath)
在文件监视器中写入上述代码，可以让图片旋转，但是旋转后在Adobe Acrobat X Pro合并生成PDF文件时会提示“未创建PDF文件，因为Adobe发生无法识别的错误”，这什么原因呀，文件的大小也由原来的2M多增加8M多