今日は祝日です。
本当はお休みです。
が、平日にしなきゃいけない手続きがあるので今日出勤して、別の日を振替でお休みをいただくことにしました。
休日でも市役所とかやっててほしいですよね。
病院みたく午前中だけでもいいからさ。
サラリーマンの姿より、若い子の姿が目につきますね。
雨なのにどこに行くのかな？映画かな？ショッピングかな？
最近、同級生の友達に会ってないな～。
あ、みんな結婚したからだ。子どもがいるからね。みんな大人になったんね。
連絡も減って。なかなか会えないね。
仲の良かった子、みんな地元にいないから。ちょっぴり寂しいな。
だから三洞さんみたく同級生が地元にいてたまに会えたりしてるのってすごく羨ましかったり…。
前置き長くなりました。昨日の続き。
Accessで
"ラベルの途中から印刷を開始するにはどうしたらいいんだろうか？"
という疑問があったのでその続きを行います。
「Access ラベル 途中」
で検索すると大体のやり方は出てきます。
ページトップに出てくるかな？
Newsbit社さんの分かりやすいです。
でもごめんなさい。なぜか印刷ページのままフリーズして印刷できませんでした。
自分はMicrosoftの「ラベル印刷で開始位置を指定して印刷する方法 」で印刷しました。
ではまた大まかな手順です。
自分はすでにラベルは作成出来ているのでMicroの手順は7までスキップです。
最初から作る場合はちゃんと手順1からおこなってくださいね。
Access起動
作成してあるレポートのラベルをデザインビューで開きます。
ページヘッダーをクリック。選択状態に。
デザインタブ→ツール→プロパティシートを選択。
ページヘッダーセクションのイベントタブ。
「フォーマット時」という欄があると思います。その欄にタブ「▽」と「…」がありますので「…」をクリック。
コードビルダー→OK
なんか表示出てきました？「MicrosoftVisualBasaic…」とかなんとか。
『
Option Explicit
Dim i, k As Integer
-------------------------------------------------------------------- ←線
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
End Sub
』
↑この文章の End Sub の前の行に改行をして下記文章(?)を入力をしていきます。
i = 0
k = InputBox("ラベル印刷の開始位置を入力してください")
こんな感じ。あれ？見れるかな？
クリックして拡大でもしてご覧くださいm(_ _"m)
上書きして一度この画面を閉じます。
デザインビュー画面に戻りましたね。
先ほどは「ページヘッダー」を選択状態にしましたが、今度は「詳細」を選択しプロパティシートを表示させ、先ほどと同じく
イベントタブ。
「フォーマット時」という欄があると思います。その欄にタブ「▽」と「…」がありますので「…」をクリック。
コードビルダー→OK
再登場「MicrosoftVisualBasaic…ほにゃらら」
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
End Sub
と表示出てます？
また End Sub の前の行に文章入力していきます。
If i < k - 1 Then
Me.MoveLayout = True
Me.NextRecord = False
Me.PrintSection = False
i = i + 1
End If
こんな感じ。保存してこの画面を閉じます。
印刷プレビューを開きます。
ラベル開始位置を聞いてくるので位置を選択してください。
開始位置なのですが、自分の場合はA-oneの2列5行タイプなので
この番号が印刷位置番号。
で、今回は4番目の位置からか印刷してほしいので「4」→「OK」
このまま印刷してよければ「印刷」ボタンをクリックしてください。
再度印刷位置をたずねてくるので再度「4」→「OK」
で印刷されると思います。
ちなみに自分が使ったA-oneさんのラベルはこちら。
エーワン ラベルシール インクジェット 10面 20枚 28939/エーワン(A-one)
￥1,296
Amazon.co.jp
A-oneさんは「ラベル屋さん」とやらで色々印刷できるから便利ですよね。
では本日は早めの更新、以上です。
本当はお休みです。
が、平日にしなきゃいけない手続きがあるので今日出勤して、別の日を振替でお休みをいただくことにしました。
休日でも市役所とかやっててほしいですよね。
病院みたく午前中だけでもいいからさ。
サラリーマンの姿より、若い子の姿が目につきますね。
雨なのにどこに行くのかな？映画かな？ショッピングかな？
最近、同級生の友達に会ってないな～。
あ、みんな結婚したからだ。子どもがいるからね。みんな大人になったんね。
連絡も減って。なかなか会えないね。
仲の良かった子、みんな地元にいないから。ちょっぴり寂しいな。
だから三洞さんみたく同級生が地元にいてたまに会えたりしてるのってすごく羨ましかったり…。
前置き長くなりました。昨日の続き。
Accessで
"ラベルの途中から印刷を開始するにはどうしたらいいんだろうか？"
という疑問があったのでその続きを行います。
「Access ラベル 途中」
で検索すると大体のやり方は出てきます。
ページトップに出てくるかな？
Newsbit社さんの分かりやすいです。
でもごめんなさい。なぜか印刷ページのままフリーズして印刷できませんでした。
自分はMicrosoftの「ラベル印刷で開始位置を指定して印刷する方法 」で印刷しました。
ではまた大まかな手順です。
自分はすでにラベルは作成出来ているのでMicroの手順は7までスキップです。
最初から作る場合はちゃんと手順1からおこなってくださいね。
Access起動
作成してあるレポートのラベルをデザインビューで開きます。
ページヘッダーをクリック。選択状態に。
デザインタブ→ツール→プロパティシートを選択。
ページヘッダーセクションのイベントタブ。
「フォーマット時」という欄があると思います。その欄にタブ「▽」と「…」がありますので「…」をクリック。
コードビルダー→OK
なんか表示出てきました？「MicrosoftVisualBasaic…」とかなんとか。
『
Option Explicit
Dim i, k As Integer
-------------------------------------------------------------------- ←線
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
End Sub
』
↑この文章の End Sub の前の行に改行をして下記文章(?)を入力をしていきます。
i = 0
k = InputBox("ラベル印刷の開始位置を入力してください")
こんな感じ。あれ？見れるかな？
クリックして拡大でもしてご覧くださいm(_ _"m)
上書きして一度この画面を閉じます。
デザインビュー画面に戻りましたね。
先ほどは「ページヘッダー」を選択状態にしましたが、今度は「詳細」を選択しプロパティシートを表示させ、先ほどと同じく
イベントタブ。
「フォーマット時」という欄があると思います。その欄にタブ「▽」と「…」がありますので「…」をクリック。
コードビルダー→OK
再登場「MicrosoftVisualBasaic…ほにゃらら」
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
End Sub
と表示出てます？
また End Sub の前の行に文章入力していきます。
If i < k - 1 Then
Me.MoveLayout = True
Me.NextRecord = False
Me.PrintSection = False
i = i + 1
End If
こんな感じ。保存してこの画面を閉じます。
印刷プレビューを開きます。
ラベル開始位置を聞いてくるので位置を選択してください。
開始位置なのですが、自分の場合はA-oneの2列5行タイプなので
この番号が印刷位置番号。
で、今回は4番目の位置からか印刷してほしいので「4」→「OK」
このまま印刷してよければ「印刷」ボタンをクリックしてください。
再度印刷位置をたずねてくるので再度「4」→「OK」
で印刷されると思います。
ちなみに自分が使ったA-oneさんのラベルはこちら。
エーワン ラベルシール インクジェット 10面 20枚 28939/エーワン(A-one)
￥1,296
Amazon.co.jp
A-oneさんは「ラベル屋さん」とやらで色々印刷できるから便利ですよね。
では本日は早めの更新、以上です。
