|
keinさん
りんさん
ありがとうございました。
ものすごいスピードで印刷され
うまく動きました。
ただ、印刷したものは、数字などしか印刷されませんでした。
(設定されていたレイアウトや罫線、写真が無視されている。。。)
・表紙シートには、罫線や写真があります。
・別紙シートには、数字と罫線があります。
お手数おかけしますが、
よろしくお願いいたします。
▼りん さん:
>本山 祐二 さん、こんにちわ。
>逆とのことですが、
>>メールの回答が逆になってない!?
>>(いっしょ)
>メール?一緒?
>Keinさんの、このコードで数式を指定する部分
>
> For Each C In MyR
> MyF = ThisWorkbook.Path & "\" & C.Value
> If Dir(MyF) <> "" Then
> LkS = "='" & ThisWorkbook.Path & "\[" & C.Value & "]"
> With Sheets("Sheet2").Range("A1:I10")
> .Formula = LkS & "表紙!'A1"
> .PrintOut Copies:=1
> .ClearContents
> End With
> With Sheets("Sheet3").Range("A1:B6")
> .Formula = LkS & "別紙!'A4"
> .PrintOut Copies:=1
> .ClearContents
> End With
> Else
> Debug.Print C.Value & " = 存在しない"
> End If
> Next
>
>
>見やすいように空白を入れてあります
>
> 旧: .Formula = LkS & "表紙 ! ' <>A1"
> ↓
> 新: .Formula = LkS & "表紙 ' ! A1"
>
>
>夜中のは下の式が逆になってましたね。すみません。
|
|