Printing Labels

[ande211]

Hi all,

I was wondering if anyone had a program to print labels.
i would be printing the labels on an old dot matrix printer,
on Avery Style labels. Or if someone could point me in the
right direction as to how and where I would get started. Any
code would be very helpful.

Try this.

Printer.Print Label1.Caption
Printer.EndDoc

[Joacim Andersson]

I don't think he wanted to print out the caption of a VB Label control but to print on labels (Avery Style labels).

Why don't you try to automate Word to do this for you.

[ande211]

Megatron,

Tahnks for your reply. I also would like to know how I
set the spacing for the labels. Like I said before i will
be printing on "Avery Style" labels. I am printing addresses
and I need to know how to set up the spacing for each label.
The labels are something like 3" by 1".

[ande211]

I need to set this up so that users can use it. Something simple, so Word is not an option. Thanks for the suggestion
though.

[Zvonko]

Try with Printer object:

Dim DifferenceBetweenLabels 'space between labels
Dim LabelHeight 'height of label
Printer.FontName="Tahoma"
Printer.FontSize=11
Printer.ScaleMode=vbCentimeters
Printer.CurrentX=1.5
Printer.n
For i=0 To NoOfLabels-1
   Printer.CurrentY=i*(DifferenceBetweenLabels+LabelHeight) + 2
   Printer.Print "";
   Printer.Print "Name"; 'semicolon tells VB to go to new line
   Printer.CurrentY=i*(DifferenceBetweenLabels+LabelHeight) + 2.5
   Printer.Print "Address";
   Printer.CurrentY=i*(DifferenceBetweenLabels+LabelHeight) + 3
   Printer.Print "City";
   Printer.CurrentY=i*(DifferenceBetweenLabels+LabelHeight) + 3.5
   Printer.Print "State";
Next

This example will print one column of labels on paper.

Hope I helped

[Zvonko]

I forgot...
When you end printing, you must write

Printer.EndDoc

because if you don't nothing will come out from printer.

[ande211]

Zvonko,

Thanks for your reply. I'll try it and see what happens.

[ande211]

Zvonko,

Hey can you tell me what this code does (Printer.n)?
I'm getting an error and that'swhere it tells me the error is. Was that just a typeo or something?

[Zvonko]

Damn!
Printer.n is just TYPO.
I tried to write something else, but I didn't and I forgot to delete it. Just ignore that line.
Sorry again...