Printing a DataGrid

• • Reply

  19 years ago

  by rsherman

  rsherman

  , United States

  Joined 19 years ago

  Does anyone know how to print a DataGrid in VB.  I have a DataGrid that displays on the screen.  I need the ability to have the user click on a button and have the grid sent to a printer.  I am displaying about 200 different Grids within the application, so I really don't want to use diverse coding for each grid.
  

  
  Any help would be appreciated.  You can email me at [email protected]

  Report abuse
• • Reply

  19 years ago

  by jim mcnamara

  jim mcnamara

  , United States

  Joined 19 years ago

  You BitBlt from the grid to the Printer object.  I made up the scale 1...8000 because I don't know the size (in twips) of the grid.
  Your program knows that. You will also have to position the output on the printer. with x and y.
  

  
  to change the size of the printed object use StrecthBlt api, which does BitBlt plus a re-size of the image.
  

  
  Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As Long) As Long
  

  
  Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  

  
  Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
  

  
  Dim GridDC as long
  GridDC = GetDC(MyDatagrid1.hwnd)
  ' bitblt data to printer.hDC
  

  
  Call BitBlt(Printer.hDC,1,1,8000,12000,GridDC,1,1,SRCCOPY)
  Printer.EndDoc
  

  
  

  Report abuse