FredixBlog

This one prints a line to a log file.

Global Const LogFileName = "c:\\anyfolder\\log\\logfile.log"

Public Sub LogMessage(TheMessage)
Dim fnum As Integer
    fnum = FreeFile
    Open LogFileName For Append As fnum
    Print #fnum, Format(Now(), "dd:mm:yy HH:MM") & " " & TheMessage
    Close fnum
End Sub

• Gibson plus solide que Fender?
• Display a counter and remaining time in a loop
• Truncate long path names
• How can I e-mail a file from Microsoft Access?
• Create a linked table with VBA
• Clear all line breaks
• Coordinates of the third point
• Copy a file
• GetOpenFileName()
• Create ODBC DSN

Here is a list of the possible values you could pass it and what they represent:

1 Letter (8.5 x 11 in.)
2 Letter Small (8.5 x 11 in.)
3 Tabloid (11 x 17 in.)

Option Explicit
Const glrcDeviceNameLen = 32
Const glrcFormNameLen = 32
' This is an arbitrary value. Based on experience,
' it ought to be large enough.
Const glrcExtraSize = 1024
' Structure for prtDevMode
Type glr_tagDevMode
   strDeviceName(1 To glrcDeviceNameLen) As Byte
   intSpecVersion As Integer
   intDriverVersion As Integer
   intSize As Integer
   intDriverExtra As Integer
   lngFields As Long
   intOrientation As Integer
   intPaperSize As Integer
   intPaperLength As Integer
   intPaperWidth As Integer
   intScale As Integer
   intCopies As Integer
   intDefaultSource As Integer
   intPrintQuality As Integer
   intColor As Integer
   intDuplex As Integer
   intYResolution As Integer
   intTTOption As Integer
   intCollate As Integer
   strFormName(1 To glrcFormNameLen) As Byte
   intLogPixels As Integer
   lngBitsPerPixel As Long
   lngPelsWidth As Long
   lngPelsHeight As Long
   lngDisplayFlags As Long
   lngDisplayFrequency As Long
   lngICMMethod As Long
   lngICMIntent As Long
   lngMediaType As Long
   lngDitherType As Long
   lngICCManufacturer As Long
   lngICCModel As Long
   bytDriverExtra(1 To glrcExtraSize) As Byte
End Type
' Structure for prtDevNames
Type glr_tagDevNames
   intDriverPos As Integer
   intDevicePos As Integer
   intOutputPos As Integer
   intDefault As Integer
End Type
' Structure for prtMip
Type glr_tagMarginInfo
   lngLeft As Long
   lngTop As Long
   lngRight As Long
   lngBottom As Long
   lngDataOnly As Long
   lngWidth As Long
   lngHeight As Long
   lngDefaultSize As Long
   lngItemsAcross As Long
   lngColumnSpacing As Long
   lngRowSpacing As Long
   lngItemLayout As Long
   lngFastPrinting As Long
   lngDataSheet As Long
End Type

Public Sub SetReportSize(ByRef ReportToEdit As Report, ByVal NewWidth As Integer, ByVal NewLength As Integer)

   Dim dm As glr_tagDevMode
   Dim dmStr As glr_tagDevModeStr
   dmStr.strDevMode = ReportToEdit.PrtDevMode
   LSet dm = dmStr
   dm.intPaperSize = 256 'could also be 0
   dm.intPaperLength = NewLength
   dm.intPaperWidth = NewWidth
   dm.lngFields = dm.lngFields Or glrcDMPaperSize Or glrcDMPaperLength Or glrcDMPaperWidth
   LSet dmStr = dm
   ReportToEdit.PrtDevMode = dmStr.strDevMode
   Set ReportToEdit = Nothing
End Sub

• Message to log file