<div>
Thanks ChloesDad - Much appreciated and hope you have a good day there.<br />
<br />
Peter
</div>


Thanks ChloesDad - Much appreciated and hope you have a good day there.

Peter

<div>
<div class="content wysiwyg-content">
Hi Experts<br />
<br />
Just a quick syntax help on code i've adapted from PAQ (re landscape mode) . OrientStructure gives me &nbsp;- &quot;user defined type not defined&quot; <br />
<br />
Dim q As Integer<br />
Dim Orient As OrientStructure<br />
Const PORTRAIT = 1<br />
Const LANDSCAPE = 2<br />
Const GETSETPAPERORIENT = 30<br />
<br />
&nbsp; &nbsp; ''* Start the printer<br />
&nbsp; &nbsp; Printer.Print &quot;&quot;<br />
&nbsp; &nbsp; '* Specify the orientation<br />
&nbsp; &nbsp; Orient.Orientation = LANDSCAPE<br />
&nbsp; &nbsp;'*Printout contents of listbox<br />
&nbsp; &nbsp; For q = 0 To PATPrintLog.ListCount<br />
&nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Printer.Print PATPrintLog.List(q)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Orient.Orientation = LANDSCAPE<br />
&nbsp; &nbsp; Next q<br />
&nbsp; &nbsp; &nbsp; &nbsp; <br />
&nbsp; &nbsp; Printer.EndDoc
</div>
</div>


Hi Experts

Just a quick syntax help on code i've adapted from PAQ (re landscape mode) . OrientStructure gives me  - "user defined type not defined" 

Dim q As Integer
Dim Orient As OrientStructure
Const PORTRAIT = 1
Const LANDSCAPE = 2
Const GETSETPAPERORIENT = 30

    ''* Start the printer
    Printer.Print ""
    '* Specify the orientation
    Orient.Orientation = LANDSCAPE
   '*Printout contents of listbox
    For q = 0 To PATPrintLog.ListCount
        
            Printer.Print PATPrintLog.List(q)
            Orient.Orientation = LANDSCAPE
    Next q
        
    Printer.EndDoc

VB6 Syntax - Printout in landscape mode

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.