printing

[shaker]

Hi
On my form i created a aprint button, me.printform, works fine but my question is instead of printing the whole form how can just print whatever is in the labels and in the text boxes in order ie.

label1 ....text box1
label2.....textbox2
label3....texbox3
etc

[kvreddy]

hi

u want to print control names ?

[Rocketdawg]

KVReddy

If you want to save the text in a textbox or just the
highlighted (seltext), you can use a common dialog
(.showprint).
If that's what you have in mind, let me know and I'll
post some code.

Dawg

[peet]

I made this sample a long time ago, I think its something like this you are after

Private Sub PrintTheControls(frm As Form)
    Dim c As Control
    Dim p As Printer
    Set p = Printer
    
    For Each c In frm
         If TypeOf c Is TextBox Then
            p.CurrentX = c.Left
            p.CurrentY = c.Top
            p.Font = c.Font
            p.Print c.Text
         End If
         If TypeOf c Is Label Then
            p.CurrentX = c.Left
            p.CurrentY = c.Top
            p.Font = c.Font
            p.Print c.Caption
         End If
    Next c
    p.EndDoc
End Sub
 
Private Sub Command1_Click()
    PrintTheControls Me
End Sub

[shaker]

hi peet
thnx for that
i getting de bug object required on this line:
p.CurrentX = c.Left

what is actually currentX and currentY

[peet]

with currentx and currenty you tell the printer where you want to start printing on a page.

have you used an exact copy of what I posted ?

[shaker]

hi peet,
sorry didn't reply back straight away work on another part of the project and came back to this with fresh head well thought it was fresh lol
yes i did copy exact code..it prints but some lines on top of ech other and all over the place thats whats confusing me

[peet]

hi again shaker

could you show me the code you are using ?

[Rocketdawg]

Hi Guys

Here's a basic snippet that uses the common dialog. I use a
modified version to send little stuff to the network laser. You can modify it (font, ad infinitum) however you want.

On Error Resume Next
With CommonDialog1
.PrinterDefault = True
.Flags = cdlPDDisablePrintToFile Or cdlPDNoPageNums
If Text1.SelLength = 0 Then
.Flags = .Flags Or cdlPDNoSelection
Else
.Flags = .Flags Or cdlPDSelection
End If
.CancelError = True
.ShowPrinter
If Err = 0 Then
If .Flags And cdlPDSelection Then
Printer.Print Text1.SelText
Else
Printer.Print Text1.Text
End If
End If
End With