如何让报表每次打开时都自动生成一个快照文件，并且文件名称自动递增！

cyber-bobo

如何让报表每次打开时都自动生成一个快照文件，并且文件名称自动递增！如file001,file002,file003....或用当前时间为文件名。请版主指教！！！

DGGLOBEXIE

如何控控制在预览报表的版面,按打印按钮后才自动生成一个快照文件,并且文件名称自动递增！請指教.!!!

Benjamin_luk

myName = Format(Now(),"YYYYDDMMHHMMSS") &"报表名称"

tank007

myName = Now() & "查询3.snp"
myname=replace(myname,":","-")
'将 ":" 替换成 "-"
DoCmd.OutputTo acReport, "查询3", "SnapshotFormat(*.snp)", "C:\windows\desktop\" & myName, False, ""

Ajoe

试试把时间格式为：Format(Now(),"yyyymmdd")

cyber-bobo

找到原因了,是因为文件名上不能包含":"这个冒号,请教高手如何解决呢?

cyber-bobo

语句是这样写的im myName As String
    myName = Now() & "查询3.snp"
    DoCmd.OutputTo acReport, "查询3", "SnapshotFormat(*.snp)", "C:\windows\desktop\" & myName, False, ""

Benjamin_luk

myName = Now()&"报表名称"
这行用来定义文件名,可以加后缀如 *.SNP,

Benjamin_luk

1.在报表中[ON OPEN]增加代码:
Dim myName as string
myName = Now()&"报表名称"
DoCmd.OutputTo acReport, "报表名称", "SnapshotFormat(*.snp)", "C:\...\" & myName, False, ""

C:\....\ 为文件存放路径

Ajoe

    应该可以实现的，实现快照可以用：输出为Word文件格式，具体代码怎么写，我也不会（或者可以用宏），呵呵。
    请高手解答吧，我也想学学哦！