连续打印中相片无法更新

sqlin

连续打印学籍卡时相片无法更新，单页打印没问题，那位大侠帮忙改一下代码，多谢了
Private Sub SpinButton1_Change()
On Error Resume Next
'If Target.Address <> "$W$2" Then End
'x = Target
x = Sheets("学籍卡").Range("W2").Value
Sheets("学籍卡").Image1.Picture = Nothing   '清除照片
'----插入相片
x1 = Sheets("学籍卡").Range("D13").Value
Sheets("学籍卡").Image2.Picture = Nothing   '清除照片
ff = Dir(ThisWorkbook.Path & "\pic1\" & x & ".jpg", vbNormal) 'Dir读取文件名（有后缀的）
If Len(ff) = 0 Then
Sheets("学籍卡").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\pic1\暂无信息.jpg")
Else
Sheets("学籍卡").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\pic1\" & x & ".jpg") '注意：1，调整Image1属性PictureSizeMode=1(图片大小模式)，使其布满；2，将图片高宽比与控件高宽比调成一致
ff = Dir(ThisWorkbook.Path & "\pic2\" & x1 & ".jpg", vbNormal) 'Dir读取文件名（有后缀的）
If Len(ff) = 0 Then
Sheets("学籍卡").Image2.Picture = LoadPicture(ThisWorkbook.Path & "\pic2\暂无信息.jpg")
Else
Sheets("学籍卡").Image2.Picture = LoadPicture(ThisWorkbook.Path & "\pic2\" & x1 & ".jpg") '注意：1，调整Image1属性PictureSizeMode=1(图片大小模式)，使其布满；2，将图片高宽比与控件高宽比调成一致
End If
End If
End Sub

Private Sub 单页打印_Click()
Me.PrintOut
End Sub

Private Sub 连续打印_Click()
For i = [ao3] To [ao4]
    [ao1] = i
    Me.PrintOut
    Next
End Sub

excel玉米

随着 [ao1]单元格的变化，表上的资料和图表要跟着变化，就可以连续打印了。所以，你 [ao1]单元格连接的是学号吗？

sqlin

查看时没问题，打印出问题：图片只打印第一份的，无法更新。有没有高手帮忙改一下打印代码？我把样张附上

sqlin

excel玉米 发表于 2023-3-6 11:18
随着 [ao1]单元格的变化，表上的资料和图表要跟着变化，就可以连续打印了。所以，你 [ao1]单元格连接的是学 ...

会跟着变化，但打印时不会。

半百

试试这样？？

szqhb

我用虚拟打印机打印出来的是不同的图片啊

excel玉米

应该是要加一个延时代码。

sqlin

excel玉米 发表于 2023-3-7 19:38
应该是要加一个延时代码。

太感谢了，终于成功了。