Printing Full Page

[WoodyRoundUp]

hi vb maniac,
i faced a problem here..
i got a form, full page, 800x600 (maximum size)..
and i use form.printform to print the form...
but, the result, it's not full page...
may i know how can i make it full page printing....
i have tried to manipulate the size, but it does not work....and another factor is because VB can allow only up to this 12000 x 9000 twip only...
what can i do?
thanks

woody

 

[Guest_imported]

I don't know if there is a way around your problem but why don't you try putting you information into a report file and printing it from VB. Print from DOS. These are DOS font calls.

Example:
FileNam = "D:\TempReport.dat"
PrintToFile
' Prints out report file from DOS
Open FileNam For Output As #FilNum
z = Shell("Print " & FileNam & " Q=Q1", vbMinimizedNoFocus)

Private Sub PrintToFile()
Dim ULOn As String
Dim ULOff As String
Dim SmallBoldOn As String
Dim MediumBoldOn As String
Dim BoldOn As String
Dim BoldOff As String
Dim Portrait As String
Dim SixLPI As String

ULOn = String(1, 27) & "&d0D"
ULOff = String(1, 27) & "&d@"
SmallBoldOn = String(1, 27) & "(12U" & String(1, 27) & "(s0p13h0s3b4099T"
MediumBoldOn = String(1, 27) & "(12U" & String(1, 27) & "(s0p12h0s3b4099T"
BoldOn = String(1, 27) & "(12U" & String(1, 27) & "(s0p10h0s3b4099T"
BoldOff = String(1, 27) & "(12U" & String(1, 27) & "(s0p10h0s0b4099T"
Portrait = String(1, 27) & "&l0O"
SixLPI = String(1, 27) & "&l6D"
Print #FilNum, String(1, 12); Portrait; SixLPI; BoldOff; "DATE: "; ULOn; Date; Spc(CDS); ULOff; Spc(16);
Print #FilNum, "OPERATOR RUN SHEET"; Spc(16); "SEGMENT#: "; ULOn; Trim(Sheets.SegNum); Spc(SNS); ULOff
Print #FilNum,
End Sub