[帖子集锦]最后的惬意，打印出美丽的报表

xjxkk01

 如何在多页下打印底端行

shizk

顶端标题行简单，大家都会的。

我觉得还是没说清楚怎么在多页的情况下每页打印底端多行或复杂行（就是难以在页脚里插进去的复杂内容），看来这是个难问题了，有那位知道的牢烦给我说说，谢谢了！盼！

有了牢烦QQ(493444976)我或写信：shizk@126.com

谢谢了！

[此贴子已经被作者于2008-3-13 0:16:50编辑过]

57wk

谢谢版主

Bulrush

很好的帖子，学习了！

lbg555

谢谢山版主。强！收下了

hnbaiyun

谢谢山菊花老师！收藏了。

口是心非

山版，想请您解释一下这段代码，越详细越好，呵呵。谢了！

Sub LoadPho()
    Dim cPath$, cFile$, b
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    cPath = ThisWorkbook.Path & "\"
    If Me.Shapes.Count > 2 Then
        Me.Shapes(3).Delete
    End If
    cFile = cPath & Range("c7") & ".jpg"
    If Dir(cFile) <> "" Then
        Range("D6").Activate
        With ActiveSheet.Pictures.Insert(cFile)
            b = Range("d6").Width / .Width
            .ShapeRange.ScaleWidth b, 0, 0
            .ShapeRange.ScaleHeight b, 0, 0
            .ShapeRange.IncrementTop (Range("d6").Height - .Height) / 2
        End With
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

山菊花

Sub LoadPho()
    Dim cPath$, cFile$, b '声明变量
    Application.ScreenUpdating = False '禁止屏幕刷新
    Application.EnableEvents = False '禁止激活事件
    cPath = ThisWorkbook.Path & "\" '本工作簿所在路径
    If Me.Shapes.Count > 2 Then '如果工作表中的图片大于2个
        Me.Shapes(3).Delete '将第3个图片删除 (除了按钮，第3个图片是照片)
    End If
    cFile = cPath & Range("c7") & ".jpg" '取Range("C7")作图片文件名
    If Dir(cFile) <> "" Then '如果文件存在
        Range("D6").Activate '激活D6单元格
        With ActiveSheet.Pictures.Insert(cFile) '将找到的图片添加到工作表
            b = Range("d6").Width / .Width '比例系数
            .ShapeRange.ScaleWidth b, 0, 0 '设置图片显示宽度
            .ShapeRange.ScaleHeight b, 0, 0 '高度
            .ShapeRange.IncrementTop (Range("d6").Height - .Height) / 2 '调整显示位置
        End With
    End If
    Application.EnableEvents = True '恢复设置
    Application.ScreenUpdating = True '恢复设置
End Sub

口是心非

呵呵，谢谢山版，您注解的非常详细，我现在正在学习您的VBA入门，感觉太好了，呵呵，不过还有很多你写的代码（就像上述代码）我还是不明白如何布局思路，包含里面的函数（if，with等等），看完你的vba入门帖子后对这样实际运用还是感觉无从下手，请山版指教一下，这方面应该如何突破呢？谢谢。

lxm0109

呵，又学到啦。