单元格内每打印一页变换一个日期。

坠入迷途

样表如下。

3190496160

Sub xunhua()
Dim s As Date
ks = [j1]
js = [j2]
For i = ks To js
    [h1] = s
    PrintOut
Next i
End Sub

坠入迷途

3190496160 发表于 2023-2-24 16:26
Sub xunhua()
Dim s As Date
ks = [j1]

打印出来需要这样的样式。

3190496160

坠入迷途 发表于 2023-2-24 16:46
打印出来需要这样的样式。

你只是求生成日期的代码，至于如何打印，你没说，不知道你要如何打印

lq-1600

3190496160 发表于 2023-2-24 16:26
Sub xunhua()
Dim s As Date
ks = [j1]

PrintOut  好厉害 浪费我几张纸

lq-1600

3190496160 发表于 2023-2-24 16:26
Sub xunhua()
Dim s As Date
ks = [j1]

PrintOut 厉害

mmwwdd

用printpreview

mmwwdd

我都是先模拟，后out

坠入迷途

3190496160 发表于 2023-2-24 17:16
你只是求生成日期的代码，至于如何打印，你没说，不知道你要如何打印

word里面好演示一点，就是这样的，每打一张日期增加一天。

lq-1600

我觉得2楼代码应该是正解了，楼主只要设置好样式，并且设置打印区域，就能解决问题了。
7楼的PrintPreview可以查看，666。
用PrintPreview替换PrintOut，查看后打印也不错。