Blitz Printer-DLL druckt nicht richtig??

Übersicht

BlitzBasic

BlitzPlus

	maxinet Betreff: Blitz Printer-DLL druckt nicht richtig??	Sa, Aug 05, 2006 1:41 Antworten mit Zitat
Hallo! Ich habe irgendeine Printer-DLL. Alles schön und gut. Doch wenn ich da etwas drucke, sieht das irgendwie jedesmal anders aus: -> Der Virtuelle Drucker von Snagit durckt es so, wie ich es optimiert habe. -> Unser Tintenstrahl-Drucker von Lexmark (Z42) druckt es genau so -> Unser Farb-Laser-Drucker von DELL (3100cn) druckt alles entweder viel kleiner oder viel größer? Das ist doch nicht normal! Wenn ich ein Word-Dokument ausdrucke ist es bei allen 3 Druckern gleich groß. Habe ich eine veraltete DLL oder woran liegt das? - Hier die DLL & Code: Code: [AUSKLAPPEN] [EINKLAPPEN] .lib "printer.dll" PrintDialog%() :"PrintDialog" PrtStartJob%(jobname$) :"PrtStartJob" PrtEndJob() :"PrtEndJob" PrtNewPage() :"PrtNewPage" PrtPageWidth%() :"PrtPageWidth" PrtPageHeight%() :"PrtPageHeight" PrtColor(r%,g%,b%) :"PrtColor" PrtPlot(x%,y%) :"PrtPlot" PrtLine(x1%,y1%,x2%,y2%) :"PrtLine" PrtRect(x1%,y1%,x2%,y2%,filled%) :"PrtRect" PrtCircle(x%,y%,r%,filled%) :"PrtCircle" PrtLoadFont%(id%,fname$,y%) :"PrtLoadFont" PrtReleaseFont(id%) :"PrtReleaseFont" PrtSetFont(id%) :"PrtSetFont" PrtStringWidth%(string$) :"PrtStringWidth" PrtPrint(x%,y%,text$) :"PrtPrint" PrtLoadImage(id%,fname$) :"PrtLoadImage" PrtPrintImage(id%,x%,y%,w%,h%) :"PrtPrintImage" PrtReleaseImage(id%) :"PrtReleaseImage" PrtImageWidth%(id%) :"PrtImageWidth" PrtImageHeight%(id%) :"PrtImageHeight" => printer.dll Download --- Der Test-Druck: Code: [AUSKLAPPEN] [EINKLAPPEN] t = PrintDialog() If t = 1 Print "User pressed cancel or no printers installed." Delay 2000 End EndIf arial32 = PrtLoadFont(1, "Arial", 32) arial64 = PrtLoadFont(2, "Arial", 64) arial96 = PrtLoadFont(3, "Arial", 96) pgwidth = PrtPageWidth() pgheight = PrtPageHeight() t = PrtStartJob("Test Job") If t = 1 Print "Cannot start the print job." Delay 2000 End EndIf PrtSetFont(arial32) PrtPrint 100,100,"This is Arial 32" PrtSetFont(arial64) PrtPrint 100,200,"This is Arial 64" PrtSetFont(arial96) PrtPrint 100,500,"This is Arial 96" PrtLoadImage(1,"cute.bmp") PrtLoadImage(2,"webrpg.bmp") img1wid = PrtImageWidth(1) img1hgt = PrtImageHeight(1) Print img1wid Print img1hgt img2wid = PrtImageWidth(2) img2hgt = PrtImageHeight(2) Print img2wid Print img2hgt PrtPrintImage(1, 1000, 1000, img1wid, img1hgt) PrtPrintImage(2, 1000, 2000, img2wid, img2hgt) PrtReleaseImage(1) PrtReleaseImage(2) PrtReleaseFont(1) PrtReleaseFont(2) PrtReleaseFont(3) PrtEndJob() => Bilder downloaden Ich weiß aber auch nicht mehr, wo die mal her war. Ich hoffe, dass mir da jemand weiterhelfen kann! Gruß, Maxi

maxinet

Betreff: Blitz Printer-DLL druckt nicht richtig??

Sa, Aug 05, 2006 1:41
Antworten mit Zitat

Hallo!
Ich habe irgendeine Printer-DLL. Alles schön und gut. Doch wenn ich da etwas drucke, sieht das irgendwie jedesmal anders aus:
-> Der Virtuelle Drucker von Snagit durckt es so, wie ich es optimiert habe.
-> Unser Tintenstrahl-Drucker von Lexmark (Z42) druckt es genau so
-> Unser Farb-Laser-Drucker von DELL (3100cn) druckt alles entweder viel kleiner oder viel größer?

Das ist doch nicht normal! Wenn ich ein Word-Dokument ausdrucke ist es bei allen 3 Druckern gleich groß.

Habe ich eine veraltete DLL oder woran liegt das? - Hier die DLL & Code:
Code: [AUSKLAPPEN]

.lib "printer.dll"
PrintDialog%() :"PrintDialog"
PrtStartJob%(jobname$) :"PrtStartJob"
PrtEndJob() :"PrtEndJob"
PrtNewPage() :"PrtNewPage"
PrtPageWidth%() :"PrtPageWidth"
PrtPageHeight%() :"PrtPageHeight"
PrtColor(r%,g%,b%) :"PrtColor"
PrtPlot(x%,y%) :"PrtPlot"
PrtLine(x1%,y1%,x2%,y2%) :"PrtLine"
PrtRect(x1%,y1%,x2%,y2%,filled%) :"PrtRect"
PrtCircle(x%,y%,r%,filled%) :"PrtCircle"
PrtLoadFont%(id%,fname$,y%) :"PrtLoadFont"
PrtReleaseFont(id%) :"PrtReleaseFont"
PrtSetFont(id%) :"PrtSetFont"
PrtStringWidth%(string$) :"PrtStringWidth"
PrtPrint(x%,y%,text$) :"PrtPrint"
PrtLoadImage(id%,fname$) :"PrtLoadImage"
PrtPrintImage(id%,x%,y%,w%,h%) :"PrtPrintImage"
PrtReleaseImage(id%) :"PrtReleaseImage"
PrtImageWidth%(id%) :"PrtImageWidth"
PrtImageHeight%(id%) :"PrtImageHeight"

=> printer.dll Download

---

Der Test-Druck:
Code: [AUSKLAPPEN]

t = PrintDialog()
If t = 1
Print "User pressed cancel or no printers installed."
Delay 2000
End
EndIf

arial32 = PrtLoadFont(1, "Arial", 32)
arial64 = PrtLoadFont(2, "Arial", 64)
arial96 = PrtLoadFont(3, "Arial", 96)

pgwidth = PrtPageWidth()
pgheight = PrtPageHeight()

t = PrtStartJob("Test Job")
If t = 1
Print "Cannot start the print job."
Delay 2000
End
EndIf

PrtSetFont(arial32)
PrtPrint 100,100,"This is Arial 32"

PrtSetFont(arial64)
PrtPrint 100,200,"This is Arial 64"

PrtSetFont(arial96)
PrtPrint 100,500,"This is Arial 96"

PrtLoadImage(1,"cute.bmp")
PrtLoadImage(2,"webrpg.bmp")

img1wid = PrtImageWidth(1)
img1hgt = PrtImageHeight(1)

Print img1wid
Print img1hgt

img2wid = PrtImageWidth(2)
img2hgt = PrtImageHeight(2)

Print img2wid
Print img2hgt

PrtPrintImage(1, 1000, 1000, img1wid, img1hgt)
PrtPrintImage(2, 1000, 2000, img2wid, img2hgt)

PrtReleaseImage(1)
PrtReleaseImage(2)

PrtReleaseFont(1)
PrtReleaseFont(2)
PrtReleaseFont(3)

PrtEndJob()

=> Bilder downloaden

Ich weiß aber auch nicht mehr, wo die mal her war. Ich hoffe, dass mir da jemand weiterhelfen kann!

Gruß,
Maxi