Printing Problem

I can help you big-time here...back soon.

oops on that clipboard.getdata part, change that to yourpicturebox.image yourpicturebox being the picture box that has the image you want to print in it

Read the floowing is summarises what can be done with the printer.

In simple terns never print directly to the printer as it takes a lot of paper to debug print.  Create a form or use a picture box on a form where you can print.


When Typing Code
Dim OutP as Printer

When Debugging....
Dim OutP as Object
frmDummy.Show
Set Outp = frmDummy

When Debugged....
Dim OutP as Object
Set Outp = Printer


So you can do things like this:

LineHeight = Outp.TexHeight + Twips *.01 ' line height plus a small gap

Outp.CurrentX = Twips * 2 ' 2 inches from left
Outp.CurrentY = Twips * 1 ' 1 inch from top
OutP.Print "YourText";

' move to next tab point
Outp.CurrentX = Twips * 4 ' 4 inches from left
OutP.Print "Your Next Bit";

' move down a line
Outp.CurrentY = Outp.CurrentY + LineHeight

Hope this helps:~)

------------Printing advise......
In simple terms you use the Printer Object like this:

Const Imperial = 1440 ' inches
Const Metric = 567 ' metric

Dim Twips as single
Twips = Imperial ' or Metric for centimeters
Printer.CurrentX = 1.5 * Twips ' 1.5 inches from left
Printer.CurrentY = 2 * Twips ' 2 inches from top
Printer.Print Text1; ' print some text

' tab over to next column
' use Format to handle numerics and dates, booleans, etc.
Printer.CurrentX = 3 * Twips ' 3 inches from left
Printer.Print Format(NumericValue,"0.00");

Printer.NewPage ' makes a new page
Printer.EndDoc  ' the document is complete


Here is a usage summary of how to handle the printer:

It is not hard to use VB's printer object. Here are some more samples using the VB Printer object or
a picture box for print preview.

When you realy get some subroutines together it is quicker to create your report in VB than either Access
or Data  reports.


After each ============== is a handy code section showing an example.

'=================
You can print anywhere you like on your page within the following positions:

l = Printer.ScaleLeft ' you must print to the right of here
t = Printer.ScaleTop ' below here
h = Printer.ScaleHeight ' above here
w = Printer.ScaleWidth ' left of here

'=================
' output to picture box or printer
If preview Then
  Set outp = picMyPictureControl
  outp.Height = Printer.Height
  outp.Width = Printer.Width
  outp.Cls
Else
  Set outp = Printer
End If

'=================
' Change font
outp.Font.Name = "Arial"
outp.Font.Size = 8

'=================
' set line height to height of fields + a littlebit more
lineheight = outp.TextHeight("X") * 1.01

'=================
' set a factor so that you can think in either inches or centimeters
twips = 1440 ' or 567 for centimeters

'=================
'set margins
leftmargin = twips * 0.5 ' Set .5 inches from left

'=================
' set topmargin
topmargin = twips * 2 ' Set 2 inches from top
if Not Preview then
  if topmargin < t then
    topmargin = t
  end if
end if
'=================
' set bottom point
bottompoint = outp.ScaleHeight - lineheight - twips * 1

'=================
' set mid pint
centerpoint = (outp.ScaleWidth - outp.ScaleLeft) * 0.5 + outp.ScaleLeft

'=================
' set rightmargin
rightmargin = outp.ScaleWidth - twips * 0.5

'=================
' Now do some printing
' move to printing position
outp.CurrentX = leftmargin
outp.CurrentY = topmargin

outp.Print "Print some text";

'=================
' print next field
outp.CurrentX = leftmargin + 2 * twips ' tab over 2 inches
outp.Print "Print some more";

'=================
' right justify to right side
outp.CurrentX = outp.ScaleWidth - outp.TextWidth(YourText$)
outp.Print YourText$;

'=================
' center justify
outp.CurrentX = centerpoint - outp.TextWidth(YourText$) * 0.5
outp.Print YourText$;

'=================
' tab to  2 inches from the left
Printer.CurrentX = 2 * twips

outp.Print "Print some more";

'=================
' Advance to next line
outp.CurrentY = outp.CurrentY + lineheight

'=================
' draw a line across
outp.line (leftmargin,outp.currenty)-(rightmargin-outp.currenty),0,bf

' draw a box arround an area
' you can also handle shading here as well rgb(250,250,250)but you
' need to use a windows API call to print on top of shading
' due to bug in windows
outp.line (leftmargin,topmargin)-(rightmargin-bottompoint),rgb(0,0,0),B

'=================
' Have we reached end of page or is this the top of the first page

Gosub CheckPage

CheckPage:
If Page=0 or outp.CurrentY > bottompoint Then

  Page = Page + 1
  if page>1 Then ' if first page don't to end of page  
      ' print bottom of page stuff here
      outp.CurrentY = bottompoint - twips * 0.5
      outp.CurrentX = centerpoint
      outp.Print "Page " + CStr(Page);
 
      If preview Then
          ok = MsgBox("Continue Y/N", vbYesNo + _ vbQuestion, "End of Page")
          If ok <> vbYes Then
               ' unload your preview form
               Exit Sub
          end if
          outp.Cls
          outp.CurrentY = topmargin
      Else
          outp.NewPage
          outp.currentx=leftmargin
          outp.currenty=topmargin
      End If
  End If
  ' handle page headings in a gosub or soubroutine here
  gosub PrintHeadings
End If


'=================
' Graphics
' picG is the image you wish to print
' Both picG.Image and picG.Pictue can be used as a source

' S=Source of picture

' so you can crop the source picure like
sx =  cropleft ' Source x position
sy =  croptop
sw =  picG.ScaleWidth - cropright
sh = picG.ScaleHeight - cropbottom

' D=Destination pos X,Y and H & W is height and width
' e.g. DX=destination x postion

DX = t
DY = l
DW = r-l

' keep same aspect ratio of pircure width/height relationship

ARatio=picG.scaleheight/picg.scalewidth ' aspect ratio of source picture

' because  dh / dw = sh / sw = ARatio
' you can find the correct dh from dw
DH = DW * ARatio

' the raster op allows pictures to be merged, or just plain copied type "RasterOpConstants." to see
list of options

RasterOp = RasterOpConstants.vbSrcCopy

' now print the graphic
outp.PaintPicture picG.Picture, DX, DY, DW, DH, SX, SY, SW, SH, RasterOp

' you can create effects like upside down and mirror using -DH and -DW

=====================
' Autoshrink

Before you print your graphic you can test to see if it fits on the page, if it is too large then shrink
it a little so it fits.

Imagine you want to print at height position hp and left poisition lp you graphic is in picture box
picG.

' set position where graphic is to be printed.
DX = lp ' set desintation x
DY = hp ' set desintation y
DW = picG.Width
DH = picG.Height

' now here is the cute bit to stop graphic going over page.

If DH + DY > h Then ' where h = printer.scaleheight
  DH = h - DY ' set the height to the remaining height
  DW = DW * (DH / picG.Height) ' reduce width by same propotion
End If

Printer.PaintPicture picG.Picture, DX, DY, DW, DH


'=================
' Finishing up

Page = Page + 1

' print bottom of page stuff here
' best done in another subroutine
outp.CurrentY = bottompoint - twips * 0.5
outp.CurrentX = centerpoint
outp.Print "Page " + CStr(Page)

If preview Then
  ok = MsgBox("Complete", vbExclamation, "End of Document")
Else
  outp.EndDoc
End If


'=================
' to abandon printing
If Not preview Then
  outp.KillDoc
End If


'=================
' Shading and transparent fonts

' First print a box
outp.Line (LeftM, startplace)-(RightM, endplace), RGB(247, 247, 247), BF
'
outp.FillStyle = 1 ' this should work in NT but not in 95
outp.FontTransparent = True
If Not preview Then ' fix windows 95 bug
  iBKMode = SetBkMode(outp.hdc, TRANSPARENT)
end if

' You need this in a code module
Public Declare Function SetBkMode Lib "gdi32" _
    (ByVal hdc As Long, ByVal nBkMode As Long) As Long

Public iBKMode As Long
Public Const TRANSPARENT = 1
Public Const OPAQUE = 2

=============================
' Zooming

Set a zoom factor and multiply all coordinates by the zoom factor. Examples:

ZF = 1 ' 1.5=150%, 2=200% etc.

outp.CurrentX = MyXPos * ZF
outp.CurrentY = MyYPos * ZF
outp.Font.Size = 8 * ZF

outp.Line (X1 * ZF, Y1 * ZF)-(X2 * ZF, Y2 * ZF),RGB(0,0,0),B

If preview Then
  Set outp = picMyPictureControl
  outp.Height = Printer.Height * ZF
  outp.Width = Printer.Width * ZF

=============================
How to select a printer:

What you do is create a setup program that saves the device name for the required printer.
Say you need 2 prinets one for documents and one for reports. You need as setup program
so operator can choose which one is needed.

Your setup from will have 2 combo boxes

so in the form load you need:

dim pr as printer
dim documents$
dim reports$

reports=getsetting("MyProg","Printers","Reports","")

Documents=getsetting("MyProg","Printers","Documents","")

for each pr in printers
  comboDocuments.Additem pr.DeviceName
  comboReports.Additem Pr.Devicename
Next

combodocuemnts=documents ' set the current name in the combo box
comboreports=reports ' set the current name in the combo box

-----------

In the save button on the form:
SaveSetting "MyProg", "Printers", "Reports", comboReports
SaveSetting "MyProg", "Printers", "Documents", comboDocuments


-------------
When you want to select a printer in your code you say:

' save the current printer name
SavedPrinterName=Printer.deviceName
Ok=SelectPrinterTypeOK("Reports") ' or "Documents"
if not ok then
  frmSelectPrinters.Show ' they need to choose a printer
  exit sub
end if

Just start printing

Printer.Print "ABCD"
Printer.EndDDoc

ok=SelectPrinterName(SavedPrinterName)

-----------------------
And now the bits that do the work:

Function SelectPrinterTypeOK(PrinterType as String) as Boolean

' find the device name for the required printer
' then select that printer

Dim PName$
PName$ = getsetting("MyProg","Printers",PrinterType,"")
if len(Pname$)=0 then
  Exit Function
end if
SelectPrinterTypeOK=SelectPrinterNameOK(Pname)

End Functon

Function SelectPrinterNameOK(PrinterName as String) as Boolean

' select a printer by device name

Dim Pr as Printer

' search for the required printer
For each Pr in Printers
   If Ucase(Pr.DeviceName)=Ucase(PrinterName) Then
       Set Printer = Pr
       SelectPrinterNameOK = True
       Exit Function
   End If
Next

End Function

-----------------
If you want your app to be linkes to the current Windows printer.
In your App startup you need to set:

Printer.TrackDefault = True

Just a thought for next time
You could have made your Labels as Textboxes into matching arrays.
So that you could have a loop

for i = 0 to TopIndex
        Printer.Print MyLabel(i).Caption & " " &   Printer.Print MyText(i)Text
Next i

Or you could name them in sequence

for i = 0 to TopIndex
       Printer.Print MyForm.Controls("MyLabel" & i).Caption & " " &   Printer.Print MyForm.Controls("MyText" & i).Text
Next i

Listening

Hello All,

   Thanks to all who replied! I accepted the first answer because I just needed the two questions answered. Look for my next question regarding "transparent background" !

Canon

cool, glad i could help

Hi All


I am having problem With Printing TEXT Box itself

How can i print TextBox itself, I want print TextBox, radion button, checkbox?

Does any one know?

for ex.
printer.print
printer.print "Enter your  Name"
printer.print "Here i want print textbox itself not for their caption or text"
printer.enddoc