WORD98でEXCELからデータを取りだして差し込み印刷を行う際に、角形5号という封筒に印刷を行いたい。さらにその時に住所などはすべて縦書きに設定をしたい。
その方法を教えて下さい。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

差込印刷ってやったこと無いんですが、ワードで縦書きにする場合はフォントの指定でできたはずですが、それではダメなんでしょうか?



それ以前に、お使いのプリンタでその封筒への印刷実績はあるんでしょうか?封筒は部分的に厚みが違ったりしているので紙送りがうまくいかなかったり、プリンタヘッドとの距離が均一でないので印刷がぶれたりすることがあります。
タックシールなどを使われたほうが良いのではないかと思います。

この回答への補足

実は他の方から電話で質問を受けて調べたのですが、どうも分からないのでここに質問をさせて貰っています。ですので、封筒の印刷がその方のプリンタで出きるのかは不明ですが、会社関係の方で会社のプリンタで会社の資料送付のために印刷されるようなのでおそらく印刷実績はあるかと思います。

差し込み印刷をするとレイアウト領域が作成されて、そこに指定したデータが入り込むようですが、フォントの設定などではできないのです。縦書き、横書きの設定が封筒選択の時にも、表示されてこないですし・・・難しいです。
といいつつ、実はすっごく簡単なことなのかもしれないです。

補足日時:2001/03/02 14:49
    • good
    • 0

こんにちは



 以下のページがご参考になるのでは?

[WD2000] Excel のデータをはがきの宛先データとして使用する方法
http://www.microsoft.com/japan/support/kb/articl …
 
[WD2000] はがき宛名印刷を行う方法
http://www.microsoft.com/JAPAN/support/kb/articl …

[WD2000] はがき宛名印刷ウィザードに関する Q&A
http://www.microsoft.com/JAPAN/support/kb/articl …

参考URL:http://www.microsoft.com/japan/support/kb/articl …

この回答への補足

ありがとうございます。
EXCELデータを封筒に差し込み印刷する方法までは分かりました。
あとはデータを縦書きにする方法がわかりません。

よろしければ助言をお願いします。

補足日時:2001/03/02 13:04
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qoffice2007のwordとexcelで差し込み印刷をしているのですが差し込み部分の印刷の件で教えください

今まではインクを黒のみセットで印刷していたので気が付かなかったのですが、通常のカラープリンターで印刷をすると差し込み部分が文字や数字だけでなく四角の灰色(ブルー?)で囲まれた状態で文字や数字が印刷されてしまいます。この四角の灰色を除いて印刷したいのですが、どうすれば宜しいのでしょうか
お教えください、よろしく。

Aベストアンサー

もしかすると差し込みフィールドの強調表示にチェックが入ってる可能性ありますね
印刷プレビューで見てみてフィールドが灰色の状態ですと強調表示されているでしょう

回避方法・・・
「差し込み文書」タブの「文章入力とフィールドの挿入」リボンにある「差込フィールドの強調表示」のアイコンの色が変わっていると思いますのでもう一度「差込フィールドの強調表示」のアイコンをクリック後、印刷プレビューで再度確認してフィールド部分が灰色になっていなければ印刷も大丈夫だと思いますのでお試し下さい

Qエクセルのラベル・封筒以外への差し込み印刷について

エクセルで作った表の一部を、ラベルや封筒以外の文書に差し込み印刷したいのですが、可能でしょうか?(例えば、表の氏名のみを、表彰状の○○殿のように)

Aベストアンサー

下記URLは差し込み印刷ウィザードを使わない差し込み印刷を解説したページです。

請求書を例にされていますが、一般の文書、例えば、ご希望の表彰状などでも同じです。

「差込印刷---MS WordとExcelを利用した差込印刷の作成例」
http://katori.adam.ne.jp/studyetc/excel/sasikomi/p-1.htm

Q開始行と最終行を指定して差し込み印刷するマクロ

エクセルのマクロで、最終行と最終行を指定して差し込み印刷するマクロをお教えください。

印刷したい個人番号のスタートと終了を指定して、数字を1ずつ増やしながら印刷する場合は、下記のマクロでうまくいきます。

「個人票」のシートを差し込み印刷します。「個人票」シートの個人番号をA8セルに入力すると別に作成した「成績表」シートからVLOOKUP関数を使って氏名や各科目の得点、合計得点を表示するようにしてあります。「個人票」シートのA3セルには「自」、B3セルには「至」、A8セルには「個人番号」と名前を付けてあります。

Sub 個人票印刷()
Range("個人番号") = Range("自")
Do While Range("個人番号") <= Range("至")
Sheets("個人票").PrintOut
Range("個人番号") = Range("個人番号") + 1
Loop
End Sub

今回、行いたいのは「成績表」シートのA列にある個人番号が不連続であったり、欠番があったりします。そこで、「成績表」シートのA列の例えば、A4からA10までというように、開始行と最終行を指定して、差し込み印刷するようにしたいのです。

できれば上の構文を生かしたいのですが、ご教授のほどよろしくお願い申し上げます。

エクセルのマクロで、最終行と最終行を指定して差し込み印刷するマクロをお教えください。

印刷したい個人番号のスタートと終了を指定して、数字を1ずつ増やしながら印刷する場合は、下記のマクロでうまくいきます。

「個人票」のシートを差し込み印刷します。「個人票」シートの個人番号をA8セルに入力すると別に作成した「成績表」シートからVLOOKUP関数を使って氏名や各科目の得点、合計得点を表示するようにしてあります。「個人票」シートのA3セルには「自」、B3セルには「至」、A8セルには「個人番号」と...続きを読む

Aベストアンサー

ん? あぁ失礼しました、誤記ました。(ていうか、至はB8じゃなくてB3と書いてあったんですね)


>「至」のセル(「個人表」シートのB3セル)に入力した番号まで

sub macro1()
 dim i as long
 for i = range("A3") to range("B3")
  range("A8").value = worksheets("成績表").cells(i, "A").value
  worksheets("個人票").printout
 next i
end sub

お手数をおかけして大変ごめんなさいでした

Q【マクロ】行すべてが空欄ならその行を削除

添付した画像のようなファイルがあります。
この表の中で、データが一つもない行は削除して、上詰めにするマクロを実行したいです。
また、このシートの表は11行で終わっていますが、
他のシートは25行目で終わっていたりとバラバラです。
すべてのシートでこの処理を行いたいと思っていますので、
他のシートで処理を行ってもエラーのでないマクロを教えていただけたら幸いです。

ちなみに、
・各シートに表はひとつづつ。
・各シートの表の開始セルは同じ。
・全シートに対して一気に処理を行いたい。←指定した処理をすべてのシートで行うマクロは作成済なので大丈夫です。

Aベストアンサー

こんばんは!
一例です。標準モジュールにしてください。

Sub Sample1()
Dim i As Long, k As Long, myRng As Range
For k = 1 To Worksheets.Count
With Worksheets(k)
If .Range("A1") = "" Then
.Range("A1") = "ダミー"
End If
For i = 8 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(i)) = 0 Then
If myRng Is Nothing Then
Set myRng = .Cells(i, "A")
Else
Set myRng = Union(myRng, .Cells(i, "A"))
End If
End If
Next i
On Error Resume Next '//←念のため★
myRng.EntireRow.Delete shift:=xlUp
If .Range("A1") = "ダミー" Then .Range("A1").ClearContents
Set myRng = Nothing
End With
Next k
End Sub

こんな感じではどうでしょうか?m(_ _)m

こんばんは!
一例です。標準モジュールにしてください。

Sub Sample1()
Dim i As Long, k As Long, myRng As Range
For k = 1 To Worksheets.Count
With Worksheets(k)
If .Range("A1") = "" Then
.Range("A1") = "ダミー"
End If
For i = 8 To .UsedRange.Rows.Count
If WorksheetFunction.CountA(.Rows(i)) = 0 Then
If myRng Is Nothing Then
Set myRng = .Cells(i, "A")
E...続きを読む

QExcelワークシートの住所録をWordの差し込み印刷で使う方法

 お世話になります。
 前任者が残した年賀状の住所録がExcelのワークシートとして存在しています。
 これを、Wordの差し込み印刷機能を利用して取り込みたいのですが、高度なスキルを持ちません。
 例えば、Excelの当該ワークシートのファイル名が「住所録.xls」で、A列が氏名、B列が会社名、C列が部署、D列が郵便番号、E列が住所・・・というふうに1行が1レコードになっている場合、どのような操作によってWordへ取り込むことができるのでしょうか?

 初歩的な質問で恐縮ですが、ご教示くださると幸いです。

Aベストアンサー

Word2000 差し込み印刷 等のキーワードでググれば幾らでも見付かると思いますよ。

http://www5a.biglobe.ne.jp/~kazama-c/yaku/yaku0207.html
http://www.miyazaki-cci.or.jp/nichinan/pc/case9.html


人気Q&Aランキング

おすすめ情報