Solved

StretchBlt Print

Posted on 1997-05-01
1
225 Views
Last Modified: 2010-07-27
I am trying to get this code to work and I get "module does not support print method." Here is the code please show corrections and tell me why this is wrong.

Private Sub Command1_Click()

CommonDialog1.ShowPrinter

PrintValue = StretchBlt(Printpic.hDC, Printpic.ScaleLeft, _
Printpic.ScaleTop, Printpic.ScaleWidth, Printpic.ScaleHeight, _
picCal.hDC, picCal.ScaleLeft, picCal.ScaleTop, _
picCal.ScaleWidth, picCal.ScaleHeight, SRCCOPY)

PrintValue.Print

End Sub
##########################################
The Module

Option Explicit

Public PrintValue As String

Declare Function StretchBlt% Lib "GDI32" (ByVal hDC%, ByVal X%, ByVal Y%, _
ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, _
ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)

Public Const SRCCOPY As Long = &HCC0020


0
Comment
Question by:wilnat
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 2

Accepted Solution

by:
weekee earned 70 total points
ID: 1425895
Doubts1) Does stretchblt return string or integer?2) Your function declaration did not specofy wat sort of datatype the function returns3) Print method use wrongly..should be " print printValue "
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Microsoft Access combo box help 2 52
How to Add / Edit Windows Menu 4 73
MS Access 03, TransferText, decimal places 8 85
Export Data to Different .csv Files 26 121
You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…

749 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question