Office中国论坛/Access中国论坛

标题: 打印指定位置的文件 [打印本页]

作者: lanlow1 时间: 2017-8-27 16:26
标题: 打印指定位置的文件
我要使用循环语句打印指定位置的文件，因此需要在shell中使用变量，不知道怎么设定。
1、在shell中使用变量，尤其是在“ ”中使用变量，怎么写？
2、怎么利用查询赋值给变量？

打印文件使用的是
Shell " mspaint.exe /p D:1\1.jpg", vbMaximizedFocus

文件的名称使用查询
select 配比送检编号 from QC01 WHERE ID = b

下列sub我不会写，麻烦大神给指导一下，谢谢！

Private Sub Command1_Click()
Dim n, str1, a, b, c, d

b = [Forms]![F351]![起始]
c = [Forms]![F351]![扫描件位置]
str1 = " 'select 配比送检编号 from QC01 WHERE ID =' n+b-1"
d = str1

For n = 1 To 10
Shell " 'mspaint.exe /p ' c & d '.jpg' ", vbMaximizedFocus
Next

End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)