<?xml version="1.0"?>
<Reports>
  <FormatVersion>1.0 1.0.0.0</FormatVersion>
  <Report ref="1">
    <Name>Product Labels (EAN-13, Label 5096)</Name>
    <DataSourceName>Main</DataSourceName>
    <ReportInfo>
      <Author>bernardo</Author>
    </ReportInfo>
    <Layout>
      <Width>3960</Width>
      <Margin>432</Margin>
      <MarginTop>720</MarginTop>
      <MarginRight>432</MarginRight>
      <MarginBottom>360</MarginBottom>
      <Orientation>Portrait</Orientation>
      <Columns>3</Columns>
      <ColumnLayout>Labels</ColumnLayout>
      <LabelSpacingX>504</LabelSpacingX>
      <LabelSpacingY>360</LabelSpacingY>
    </Layout>
    <Font>
      <Name>Arial</Name>
      <Size>9</Size>
      <Bold>false</Bold>
      <Italic>false</Italic>
      <Underline>false</Underline>
      <Strikethrough>false</Strikethrough>
    </Font>
    <DataSources>
      <DataSource>
        <Name>Main</Name>
        <DataProvider>OLEDB</DataProvider>
        <ConnectionString>Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|C1NWind.mdb;Persist Security Info=False</ConnectionString>
        <RecordSource>Products</RecordSource>
      </DataSource>
    </DataSources>
    <Sections>
      <Section>
        <Name>Detail</Name>
        <SubSections>
          <SubSection>
            <Name>SubSection1</Name>
            <Height>4320</Height>
            <AutoHeight>None</AutoHeight>
          </SubSection>
        </SubSections>
        <Type>Detail</Type>
        <AutoHeight>None</AutoHeight>
        <OnFormat>' make up 12-digit ean code from product ID
id = productID
while len(id) &lt; 12
	id = id &amp; (int(rnd * 10) mod 10)
wend
id = left(id, 12)

' assign ean code to field
ProductIDCtl.Text = id

' show ean parts
bc1.Text = left(id, 1)
bc2.Text = mid(id, 2, 6)
bc3.Text = right(id, 6)</OnFormat>
      </Section>
      <Section>
        <Name>Header</Name>
        <SubSections>
          <SubSection>
            <Name>SubSection1</Name>
          </SubSection>
        </SubSections>
        <Type>Header</Type>
        <Visible>false</Visible>
      </Section>
      <Section>
        <Name>Footer</Name>
        <SubSections>
          <SubSection>
            <Name>SubSection1</Name>
          </SubSection>
        </SubSections>
        <Type>Footer</Type>
        <Visible>false</Visible>
      </Section>
      <Section>
        <Name>PageHeader</Name>
        <SubSections>
          <SubSection>
            <Name>SubSection1</Name>
          </SubSection>
        </SubSections>
        <Type>PageHeader</Type>
        <Visible>false</Visible>
      </Section>
      <Section>
        <Name>PageFooter</Name>
        <SubSections>
          <SubSection>
            <Name>SubSection1</Name>
          </SubSection>
        </SubSections>
        <Type>PageFooter</Type>
        <Visible>false</Visible>
      </Section>
    </Sections>
    <Fields>
      <Field>
        <Name>ProductIDCtl</Name>
        <Section>Detail</Section>
        <Left>180</Left>
        <Top>1710</Top>
        <Width>1995</Width>
        <Height>750</Height>
        <Text>111111111111</Text>
        <BarCode>EAN_13</BarCode>
        <Align>LeftTop</Align>
        <PictureAlign>CenterMiddle</PictureAlign>
        <PictureScale>Stretch</PictureScale>
        <Font>
          <Name>Calibri</Name>
          <Size>9</Size>
          <Bold>false</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
      </Field>
      <Field>
        <Name>ProductNameCtl</Name>
        <Section>Detail</Section>
        <Left>615</Left>
        <Top>2610</Top>
        <Width>1770</Width>
        <Height>225</Height>
        <Text>ucase(ProductName)</Text>
        <Calculated>true</Calculated>
        <Align>LeftTop</Align>
        <Font>
          <Name>Calibri</Name>
          <Size>9</Size>
          <Bold>false</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
      </Field>
      <Field>
        <Name>UnitPriceCtl</Name>
        <Section>Detail</Section>
        <Left>300</Left>
        <Top>1170</Top>
        <Width>1800</Width>
        <Height>510</Height>
        <Text>UnitPrice</Text>
        <Calculated>true</Calculated>
        <Format>Currency</Format>
        <Align>CenterMiddle</Align>
        <Font>
          <Name>Calibri</Name>
          <Size>18</Size>
          <Bold>true</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
      </Field>
      <Field>
        <Name>SupplierIDCtl</Name>
        <Section>Detail</Section>
        <Left>2160</Left>
        <Top>1515</Top>
        <Width>420</Width>
        <Height>1005</Height>
        <Text>int(rnd * 1000000)</Text>
        <Calculated>true</Calculated>
        <Align>CenterMiddle</Align>
        <Font>
          <Name>Calibri</Name>
          <Size>9</Size>
          <Bold>false</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
        <WritingMode>VerticalRightToLeft</WritingMode>
      </Field>
      <Field>
        <Name>Field1</Name>
        <Section>Detail</Section>
        <Left>2085</Left>
        <Top>1290</Top>
        <Width>600</Width>
        <Height>270</Height>
        <Text>5096</Text>
        <Align>CenterMiddle</Align>
        <Font>
          <Name>Calibri</Name>
          <Size>9</Size>
          <Bold>false</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
      </Field>
      <Field>
        <Name>bc1</Name>
        <Background type="Solid">
          <Color>FFFFFFFF</Color>
        </Background>
        <Section>Detail</Section>
        <Left>210</Left>
        <Top>2370</Top>
        <Width>150</Width>
        <Height>225</Height>
        <Text>8</Text>
        <Align>CenterMiddle</Align>
        <Font>
          <Name>Calibri</Name>
          <Size>8.25</Size>
          <Bold>false</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
      </Field>
      <Field>
        <Name>bc2</Name>
        <Background type="Solid">
          <Color>FFFFFFFF</Color>
        </Background>
        <Section>Detail</Section>
        <Left>570</Left>
        <Top>2370</Top>
        <Width>675</Width>
        <Height>225</Height>
        <Text>888888</Text>
        <Align>CenterMiddle</Align>
        <Font>
          <Name>Calibri</Name>
          <Size>8.25</Size>
          <Bold>false</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
      </Field>
      <Field>
        <Name>bc3</Name>
        <Background type="Solid">
          <Color>FFFFFFFF</Color>
        </Background>
        <Section>Detail</Section>
        <Left>1365</Left>
        <Top>2370</Top>
        <Width>675</Width>
        <Height>225</Height>
        <Text>888888</Text>
        <Align>CenterMiddle</Align>
        <Font>
          <Name>Calibri</Name>
          <Size>8.25</Size>
          <Bold>false</Bold>
          <Italic>false</Italic>
          <Underline>false</Underline>
          <Strikethrough>false</Strikethrough>
        </Font>
      </Field>
    </Fields>
  </Report>
</Reports>