tuning4you
Gebruiker
- Lid geworden
- 3 jun 2007
- Berichten
- 328
Ik maak een document aan vanuit VB en wens dit af te drukken.
Hiervoor gebruik ik volgende code:
Dim PrinterSettings As New Printing.PrinterSettings
smartCard.PrintSettings.DefaultPageSettings.PaperSize = New Printing.PaperSize("A5 (148 x 210 mm)", 583, 827)
MsgBox(smartCard.PrintSettings.DefaultPageSettings.PaperSize.ToString)
smartCard.Print()
Het resultaat van de msgbox is: [PaperSize A5 (148 x 210 mm) Kind=Custom Height=827 Width=583].
Via mijn Canon inkjet printer werkt dit zonder probleem. Wanneer ik dit afdruk op mijn Brother laserprinter, dan werkt dit niet. Er komt maar een deel op mijn A5 blad.
Ik heb ondertussen op internet onderstaande oplossing gevonden. Dit werkt zowel voor mijn Canon als voor mijn Brother. Maar voor Adobe PDF dan weer niet.
For Each Ps As Printing.PaperSize In PrinterSettings.PaperSizes
If Ps.PaperName = "A5" Then smartCard.PrintSettings.DefaultPageSettings.PaperSize = Ps : Exit For
Next
MsgBox(smartCard.PrintSettings.DefaultPageSettings.PaperSize.ToString)
Het resultaat van de msgbox is: [PaperSize A5 Kind=A5 Height=827 Width=583].
Ik kan beide samenvoegen om dit te omzeilen maar ik begrijp niet waarom de Custom A5 niet werkt op mijn Brother printer. Iemand hier ervaring mee of een idee?
Hiervoor gebruik ik volgende code:
Dim PrinterSettings As New Printing.PrinterSettings
smartCard.PrintSettings.DefaultPageSettings.PaperSize = New Printing.PaperSize("A5 (148 x 210 mm)", 583, 827)
MsgBox(smartCard.PrintSettings.DefaultPageSettings.PaperSize.ToString)
smartCard.Print()
Het resultaat van de msgbox is: [PaperSize A5 (148 x 210 mm) Kind=Custom Height=827 Width=583].
Via mijn Canon inkjet printer werkt dit zonder probleem. Wanneer ik dit afdruk op mijn Brother laserprinter, dan werkt dit niet. Er komt maar een deel op mijn A5 blad.
Ik heb ondertussen op internet onderstaande oplossing gevonden. Dit werkt zowel voor mijn Canon als voor mijn Brother. Maar voor Adobe PDF dan weer niet.
For Each Ps As Printing.PaperSize In PrinterSettings.PaperSizes
If Ps.PaperName = "A5" Then smartCard.PrintSettings.DefaultPageSettings.PaperSize = Ps : Exit For
Next
MsgBox(smartCard.PrintSettings.DefaultPageSettings.PaperSize.ToString)
Het resultaat van de msgbox is: [PaperSize A5 Kind=A5 Height=827 Width=583].
Ik kan beide samenvoegen om dit te omzeilen maar ik begrijp niet waarom de Custom A5 niet werkt op mijn Brother printer. Iemand hier ervaring mee of een idee?
