Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...

MS Access Forum / New Users / March 2005

Tip: Looking for answers? Try searching our database.

How do it print graph paper?

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Rockabilly Rebel - 04 Mar 2005 08:49 GMT
I can get the grid up but a blank page gets printed.
axeman422 - 04 Mar 2005 09:25 GMT
i'd prob use excel for making a grid page

http://members.ozemail.com.au/~ae42/Book1.xls

open that and save as a xls on your puter then open it with excel it's
actually really easy to make

> I can get the grid up but a blank page gets printed.
Duane Hookom - 05 Mar 2005 07:03 GMT
If you are referring to a grid on a report, you can either use line or
rectangle controls or the Line method. The following code uses the Line
method to draw the current month's calendar page.

Private Sub Report_Page()
   Dim lngDayHeight As Long
   Dim lngDayWidth As Long
   Dim datRptDate As Date
   Dim intStartWeek As Integer
   Dim lngTopMargin As Long
   Dim dat1stMth As Date
   Dim datDay As Date
   Dim lngTop As Long
   Dim lngLeft As Long
   datRptDate = Date
   dat1stMth = DateSerial(Year(datRptDate), Month(datRptDate), 1)
   intStartWeek = DatePart("ww", dat1stMth)
   lngDayHeight = 2160  'one & half inch
   lngDayWidth = 1440  'one inch
   lngTopMargin = 720  'half inch
   Me.FontSize = 22
   'loop through all days in month
   For datDay = dat1stMth To DateAdd("m", 1, dat1stMth) - 1
       'find the top and left corner
       lngTop = (DatePart("ww", datDay) - intStartWeek) * _
           lngDayHeight + lngTopMargin
       lngLeft = (Weekday(datDay) - 1) * lngDayWidth
       If Weekday(datDay) = 1 Or Weekday(datDay) = 7 Then
           Me.DrawWidth = 8
        Else
           Me.DrawWidth = 1
       End If
       'draw a rectangle for day
       Me.Line (lngLeft, lngTop)-Step _
               (lngDayWidth, lngDayHeight), , B
       Me.CurrentX = lngLeft + 50
       Me.CurrentY = lngTop + 50
       Me.Print Day(datDay)
   Next
End Sub

Signature

Duane Hookom
MS Access MVP

>I can get the grid up but a blank page gets printed.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.